ich habe in einem Excel Sheet mehrere Tabellen als ListObjects benannt und
brauche jetzt die letzte beschriebene Zeile in Spalte 3 der jeweiligen Tabellen.
Ich steh gerade echt auf dem Schlauch. ich bekomme es hin mir die letzte beschriebene Zeile in einer Msg Box auszugeben...aber leider nicht als String (letzte Zeile = ....) zu speichern... Jemand eine Idee
Im Folgenden mein Code:
Sub test()
Dim oList As ListObject
Dim adr As String
With Worksheets("Liste12").ListObjects("Tabelle14").DataBodyRange
MsgBox .Cells(.Rows.Count, 3).End(xlUp).Row
End With
End Sub
Ich würde gerne sowas in der Art haben, aber es funktioniert nicht:
letzteZeile = Worksheets("Liste12").ListObjects("Tabelle14").DataBodyRange.Cells(Rows.Count, 3).End(xlUp).Row
Fehlerausgabe ist 1004: Anwendungs - oder objektdefinierter Fehler
Vielen Dank für eure Tipps