Letzte gefüllte Zeile in List.Object

Nette13 · 2013-06-26T08:11:44+00:00

Hallo zusammen, ich habe ein kniffeliges Problem. Für mich zumindest. Ich möchte in einem List.Object die letzte gefüllte Zeile in einer Spalte ermitteln. Aber mit diesem Code bringt er mich immer ans Tabellenende. lr = Cells(Rows.Count, suchspalte).End(xlUp).Row Ich muss in diesen Code irgendwie das Tabellenobject einbauen, aber weiß leider nicht wie. Hat jemand von Euch eine Idee? Ich sage schon mal Danke. Gruß Annette

Hallo Harry,
Du hast Recht, wenn man das Listobjekt mit der Maus durch ziehen am Rahmen erweitert,
gibt meine Funktion nur die letzte beschreibene Zellzeile zurück, deshalb so:


Sub test1()
MsgBox lastRow_oList("Tabelle2", "meineListe_2")
End Sub
Function lastRow_oList(xTabName As String, xListName As String) As Long
Dim oList As ListObject
Dim adr As String, n As Long
Set oList = ThisWorkbook.Worksheets(xTabName).ListObjects(xListName)
adr = Split(oList.Range.Address, ":", -1, vbTextCompare)(1)
Set oList = Nothing
lastRow_oList = ThisWorkbook.Worksheets(xTabName).Range(adr).Row
End Function

Gruß von Luschi
aus klein-Paris
PS: Auch Dein Versuch bringt unter den gegebenen Umständeen nicht das korrekte Ergebnis.

Hallo,
ich nehme an dies verhält sich wie mit dem UsedRange/Benutzter Bereich in einer normalen Tabelle.
Teste mal diese Variante

Sub Beispiel()
Dim oList As ListObject, rngLetzte As Range
Set oList = Tabelle1.ListObjects(1)
Set rngLetzte = FindLetzte(oList.Range)
MsgBox rngLetzte.Row
End Sub

Function FindLetzte(rngRange As Range) As Range
Dim LRow As Long, LCol As Long
Dim A As Long
 
 With rngRange
   On Error Resume Next
        'Finde Zeile 
        LRow = .Find("*", , xlValues, xlWhole, xlByRows, xlPrevious, False, False).Row
        LRow = Application.Max(LRow, .Find("*", , xlFormulas, xlWhole, xlByRows, xlPrevious).Row)
        If LRow = 0 Then LRow = 1
   
        'Finde Spalte 
        For A = .Columns(.Columns.Count).Column To .Columns(1).Column Step -1
              LCol = .Columns(A).Find("*", , xlValues, xlWhole, xlByRows, xlPrevious).Column
              LCol = Application.Max(LCol, .Columns(A).Find("*", , xlFormulas, xlWhole, xlByRows, xlPrevious).Column)
              If LCol > 1 Then: LCol = A: Exit For
        Next A
        If LCol = 0 Then LCol = 1
        Set FindLetzte = .Parent.Cells(LRow, LCol)
 End With
 
 
End Function

Gruß Tino

Letzte gefüllte Zeile in List.Object

Forumthread: Letzte gefüllte Zeile in List.Object

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial