Frage über Excel-Makro

Computer: Software & Programmierung Office Software
1

Hallo, Leute,

wie kann ich die Anzahl der Zeilen in einer Excel-Tabelle
ermitteln, die wirklich eingetragen sind.
ich brauche diese Anzahl, um jede Zeile durchzulaufen.
bis jetzt habe ich immer so gemacht:

Dim i As Integer
i = 1
Do While Range(„A“ & i).Value „“
'Do something…
i = i + 1
Loop

die finde ich aber blöd.
Z.B. wenn jedend eine Range(„A“ & i) leer ist, dann wird meine While-Schrefe abgebrochen.

ich frage jetzt ob so was gibt:
for i = 1 to Anzahl_der_EingestragendeZeilen
’ tue was…
Next i

oder noch besser:
foreach Zeile_der_eingetragen_sind
'tue was

aber NICHT : for i = 1 to 66535 das ging auch, aber nicht besonders schlau.

Dank in voraus

Sun

2

Hallo!

Da gibt es eine fertige Funktion für, die im englischen Excel 2000 „COUNTBLANK(X:Y)“ heißt. Heisst im deutschen vielleicht „ZÄHLELEER“, weiß ich nicht. Du übergibst als Parameter für X und Y die Zellen, also z.B. A1:Z95 und du erhältst eine Zahl mit der Anzahl der leeren Zellen im angegebenen Bereich. Willst du nur die Zeilen zählen, dann eben nur A1:A95 (z.B.) angeben und du erhältst die Anzahl leerer Zellen in den Zeilen 1-95.

Gruß

/Reinhard

3

Hallo Sun,

probier’s mal mit Usedrange:

activesheet.usedrange.rows.count

liefert die Anzahl der Zeilen im benutzen Bereich des aktiven Blattes.

Gruß
Daniel