richardsongaragedoor.online
Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
Halli Hallo, ich habe folgendes kléines Problemchen, ich möchte eine Prüfung durchführen lassen wenn ab der Zeile 7 in der Spalte 12eins der folgenden Texte eingeben ist: UBM, UBV, UBH, H, V, D, SW, O oder die zelle nicht leer ist dann soll eine MsgBox komme: "Es wurden alle Umfänge zugeordnet! " ansonsten soll die Zelle blau markiert werden und die MsgBox kommen: "Bitte treffen Sie eine Zuordnung in der markierten Zelle und führen Sie die Prüfung erneut durch! Vba wenn danny. " Wenn alles stimmt sollen alle Markierungen gelöscht werden Meine Programmierung: Code: Function ZuordnungBasistabellePrüfen2() Dim letzte As Long Dim Zeile As Long Dim wks As Worksheet Set wks = ActiveSheet With wks letzte = Cells(, 4)(xlUp) 'letzte Zeile mit Inhalt in Spalte E For Zeile = 7 To letzte With (Zeile, 12) If = "SW" Or = "UBM" Or = "UBV" Or = "UBH" Or = "D" Or = "H" Or = "V" Then If Not IsEmpty() Then 'prüfen, ob Spalte L in Zeile leer MsgBox "Es sind alle Umfänge zugeordnet! " Else MsgBox "Bitte treffen Sie eine Zuordnung in der markierten Zelle " _ & "und führen Sie die Prüfung erneut durch " 'Zelle auswählen.
na dann ist es ja fast noch viel einfacher: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub If = "Email" Or = "Besuch" Or = "Anruf" Then Das Makro gehört in dein VBA-Projekt in das Blatt, in dem es arbeiten soll. Der Name "Private Sub Worksheet_Change(ByVal Target As Range)" ist wichtig und darf nicht geändert werden, da es sich um ein Event handelt. Also jedes mal, wenn du eine Zelle in dem Blatt änderst, läuft das Makro und prüft die gerade geänderte Zelle (Target). Access VBA: Wenn-Dann-Sonstwenn-Funktion (If-Then-Elseif-Else). Und wenn ich bereits ein Makro hab, welches mit Private Sub Worksheet_Change(ByVal Target As Range) beginnt? Fehler "Mehrdeutiger Name"... Hast Du auch hier Aushilfe? Dann musst Du beide zusammenschmeißen und, falls es sich um verschiedene zu bearbeitende Bereiche handelt, über eine If-Abfrage unterscheiden. Du kannst ja einfach mal beide Makros posten und dann schmeißen wir die zusammen. Gerne;-) If Intersect(Target, Range("D1:D1000")) Is Nothing Then Exit Sub If Target = "" Then (0, 1) = CDate(Format(Now, "")) If = 4 Then ElseIf = 1 Then You, Sir, are the best!
ClearContents End If End Sub Kann mir einer hierbei vielleicht helfen? Schönen Gruß, Papst im Ruhestand, der III Hallo PapaEmeritus3, musst Du deine Audienzen protokollieren?? Wo genau ist dein Problem? Spontan sehe ich neben dem "Else" einen Doppelpunkt, der da nicht hingehört. Dann geht "If = "Email" Or "Besuch" Or "Anruf" Then" nicht, sondern "If = "Email" Or = "Besuch" Or = "Anruf" Then". Außerdem übergibst Du beim Start des Makro einen Zellbezug. Aber wo kommt der her? Startest Du das Makro durch ein anderes oder sollte es eigentlich ein Event sein? Hab da mal was gebastelt: Private Sub Worksheet_Doc_No() Dim Zeile As Integer For Zeile = 1 To (, 1)(xlUp) If Cells(Zeile, 1) = "Email" Or Cells(Zeile, 1) = "Besuch" Or Cells(Zeile, 1) = "Anruf" Then Cells(Zeile, 2) = "-" Else Cells(Zeile, 2). Fehlerbehandlungsroutinen - Das VBA-Tutorial. ClearContents Next Zeile Gruß, Lutz Hi Lutz, vielen Dank! Protokollieren, nicht - die Datei hat einen anderen Hintergrund;-) Das Makro soll eigentlich "permanent" laufen, also sobald ein Zelleneintrag vorgenommen ist, soll die Nachbarzelle befüllt werden.