AW: Zellbereich mit Schleife durchlaufen
02.11.2023 16:33:59
daniel
HI
es gibt zwei grundsätzliche Möglichkeiten:
a) als Objektschleife über die Zellen des Bereichs
dim Zelle as range
for each Zelle in Range(Cells(Suchzeile.Row, 7), Cells(Suchzeile.Row, 6 + AnzahlderMonatsTage))
if Zelle.value = "" then Msgbox "Zelle" & Zelle.Address(0, 0) & " ist leer"
next
b) als einfache Zählerschleife über die Spaltennummern des Bereichs
dim i as long
for i = 7 to AnzahlderMonatstage + 6
if Cells(Suchzeile, i) = "" then
Msgbox "Zelle in Zeile " & Suchzeile & " Spalte " & i & " ist leer"
end if
next
noch ein Tipp zu a)
nutze hier die Resize-Funktion, um den Zellbereich zu beschreiben.
das ist einfacher als mit Startzelle bis Endzelle:
for each Zelle in Cells(Suchzeile, 7).Resize(1, AnzahlderMonatstabe)
Gruß Daniel