Excel, Zeilenanzahl

[rtd1978]

hallo,

ich brauch ne methode oder sowas die mir sagt wieviele zeilen eine excel-datei hat (benutzte zeilen).

jemand ne idee? in der excel-hilfe zu vba finde ich nix.

 

[Orakel]

Hi rtd

ich kenne nur folgende Möglichkeit:

nLastRow = ActiveCell.SpecialCells(xlLastCell).Row
oder
nLastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row

Das ganze hat nur einen Hacken. Wenn Irgendwann einmal in eine Zelle (unterhalb Deiner letzten) geschrieben wurde, dann wird diese Markierung anscheinend nicht mehr verändert. Zumindest ist es mir noch nicht aufgefallen. Mit anderen Worten es ist mit dieser Methode nicht gewährleistet, dass in den Zeilen auch wirklich Werte stehen.

Gruß
Das Orakel

 

[Ein_Freund]

Tja, man kann durch die Datei einfach mal mit ner Schleife durchlaufen. Das Problem dabei ist, dass keine leeren Felder dazwischen vorkommen dürfen.

Der folgende Code durchläuft die erste Spalte bis zur ersten leeren Zelle:

Dim i%
i = 1
Do While Not IsEmpty(Sheets(1).Cells(i, 1)
   i = i + 1
Loop

MsgBox i

MfG

 

[rtd1978]

so, habs jetzt:

nLastRow = oWorkbook1.Sheets("Tabelle1").UsedRange.Rows.Count

auch mit leerzeilen.

 

[Orakel]

Na da hab ich doch auch mal wieder was gelernt.

Thanks
Das lernende Orakel