✔ Excel Tabelle nach Anzahl Zeilen durchsuchen

[KlaDi]

Hallo,

ich möchte mittels eines Makros eine Tabelle auf Ihre größe hinprüfen. Die Tabelle steht in Tabellenblatt 1. Die Größe der Zeile ist Variabel und daher möchte ich die Größe, bevor mein eigentliches Makro gestartet wird auslesen.

Erstmal muss ich ja die Tabelle selektieren, das kann ich ja mit

Sheets("Tabelle1").Select

machen, aber wie kann ich diesen Aufruf so gestalten, das es egal ist, wie die Tabelle heißt?

Und wie kann ich dann die Anzahl der Zeilen auslesen?

Gruß KlaDi.

 

[KlaDi]

So gehts:

  Worksheets(1).Select
    i = 1
    While Worksheets("Tabelle1").Cells(i, 1).Value <> ""
        i = i + 1
        Eintraege = i - 1
    Wend

Gruß KlaDi.

 

[ronaldh]

Oder so:

   Set xlApp = New Excel.Application
   Set xlBook = xlApp.Workbooks.Open(xlDsn)
    Set xlSheet = xlApp.ActiveWorkbook.Sheets(1)
   
   
     
   MaxRows = xlSheet.UsedRange.Rows.Count