mehrere Zellen auf "leer" prüfen und Makro stoppen
17.09.2023 13:39:10
Andreas
An der Stelle "Stop" ' Hier eine Abfrage ' , also nach dem Makro_Vergleich
soll in der aktive Zeile im Sheet"Bearbeiten" die Zellen C ; F und L auf "befüllt- also nicht leer" geprüft werden.
*Ist eine davon ohne Inhalt - dann MsgBox "Art eintragen" und Makro hier beenden
*Sind die Zellen C; F und L mit Inhalt- dann Weiter im Makro
Cells(ActiveCell.Row, 6).Resize(1, 12).ClearContents ' löschen von aktiven Zeilen
''Übergabe der aktiven Zeile in "Tabelle Auswertung" P51 für Auto BM Art
Sheets("Auswertung").Range("P51").Resize(1, 3).Value = _
Cells(ActiveCell.Row, 1).Resize(1, 3).Value
If UserForm100.CheckBox111.Value Then 'wenn Checkbox aktiv
Call Makro_Vergleich
Stop 'Hier eine Abfrage
End If
''Übergabe der aktiven Zeile in "Tabelle Auswertung" P4 für Auto BM Art
Sheets("Auswertung").Range("P4").Resize(1, 12).Value = _
Cells(ActiveCell.Row, 1).Resize(1, 12).Value
''leeren falls noch Eigenschft in Combobox
UserForm100.ComboBox711 = "" 'leeren
UserForm100.ComboBox712 = "" 'leeren
UserForm100.ComboBox713 = "" 'leeren
UserForm100.ComboBox714 = "" 'leerenWie könnte der "Verkettungscode" dort aussehen?
Gruß Andreas
Anzeige