Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellbereich mit Schleife durchlaufen

Zellbereich mit Schleife durchlaufen
02.11.2023 16:23:37
STeve
Hallo liebe Helfer.

Habe einen Zellbereich definiert und möchte jetzt jede einzelne Zelle überprüfen ob sie leer ist:

Range(Cells(Suchzeile.Row, 7), Cells(Suchzeile.Row, 6 + AnzahlderMonatsTage))

leider bringe ich die Schleife nicht zusammen.!!!!

Bitte um Hilfe.
Danke STeve
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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
Anzeige
AW: Zellbereich mit Schleife durchlaufen
02.11.2023 16:41:46
STeve
Super Daniel
Danke für die schnelle und perfekt Hilfe.
Dir noch einen schönen Tag.
glg STeve

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige