VisualBasic [Excel 2010] Tabellengröße herausfinden?

[Pr3d4t0r2007]

Hallo, wie finde ich die Größe der Tabelle per Vba code heraus?
wenn ich die linke oberste Zellen der tabelle am linken rand auswähle, wählt excel mir ja auch nur genau die Tabelle aus!

Public Sub test()
Dim bereich As Range
Set bereich = [A1].CurrentRegion
MsgBox bereich.Address
End Sub

funktioniert leider nicht! gibt mir nur die richtige breite aber nicht die richtige zeilenanzahl...

 

[Bemme90]

größe welcher tabelle?!
Willst du einen bestimmten bereich markieren und excel soll dir die Range nennen?!
Versteh deine Frage nicht ganz...

 

[Pr3d4t0r2007]

ich habe ein Tabellenblatt und auf diesem befindet sich eine Tabelle mit Überschriften und inhalt und von der Tabelle möchte ich den Bereich herausfinden

 

[Bemme90]

Code:

Public Sub test()
Dim bereich As Range
Set bereich = [A1].CurrentRegion
MsgBox bereich.Address
End Sub

funktioniert leider nicht! gibt mir nur die richtige breite aber nicht die richtige zeilenanzahl...

Bei mir funktioniert es. Er sagt z.B.
A1:C45

Spalten = 3 (A:C)
Zeilen = 45 (1:45)

 

[Pr3d4t0r2007]

Das hat bei mir leider nicht richtig funktioniert. Ich habe jetzt diese Funktion. Die funktioniert

Private Function FindTableRange()
    Dim tbl As ListObject
    For Each tbl In ActiveSheet.ListObjects
         FindTableRange = tbl.Range.Address
         Exit Function
    Next
End Function