EXCEL VBA Frage?
Hallo,
ich habe ein problem mit Excel VBA, unzwar würde ich gerne die Abfrage der Leeren zellen erweitern um ein paar andere zeilen... leider habe ich immer irgendwie ein syntax problem. Kann mir jemand helfen
For Each Zellen_auf_Inhalt_prüfen In Range("B7:J7") __HIER SOLL MEHR ABGEFRAGT WERDEN
If Zellen_auf_Inhalt_prüfen.Value = "" Then
MsgBox "Bitte alle Zellen ausfüllen."
GoTo MacroEnde
End If
Next Zellen_auf_Inhalt_prüfen
1 Antwort
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Microsoft Excel
Meinst Du das so?:
Dim Zellen_auf_Inhalt_prüfen As Range
For Each Zellen_auf_Inhalt_prüfen In Range("B7:J7, B9:J9, B11:C11")
If Zellen_auf_Inhalt_prüfen.Value = "" Then
MsgBox "Bitte alle Zellen ausfüllen."
Exit For ' oder Exit Sub
End If
Next Zellen_auf_Inhalt_prüfen
P.S.: Sprungmarken sollte man auf jeden Fall vermeiden. Mit "Exit For" oder "Exit Sub" bist Du da "besser bedient". Und nutze gerne das Tool "Quelltext" hier im Editor, so wie ich.
Woher ich das weiß:Berufserfahrung – IT-Administrator (i.R.)