Letzte 20 Einträge aus Tabelle anzeigen

Hallo liebes Forum,
Ich kämpfe derzeit mit dem Problem, dass ich es nicht schaffe, dass er mir in meiner ListBox nur die letzten 20 Einträge aus einer Excel-Tabelle anzeigt. Ich habe eine Methode ausprobiert, die nicht funktioniert und mir den "Laufzeitfehler 424 Objekt erforderlich" anzeigt. Kann mir da vielleicht jemand weiterhelfen?


Private Sub UserForm_Initialize()
Dim wks As Worksheet: Set wks = Tabelle1
Me.Caption = wks.Range("B3").Value
With Me.ListBox1.ListIndex = ListBox1.ListCount - 1
.ColumnCount = 22
.ColumnWidths = "80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80"
.ColumnHeads = True
.RowSource = "'" & wks.Name & "'!A6:T" & wks.Cells(wks.Rows.Count, 1).End(xlUp).Row
.SetFocus
End With
End Sub

Jetzt schon mal vielen Dank für Eure Hilfe!
Beste Grüße Max

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Initialize() Dim wks As Worksheet, LR As Integer, Zeil As Integer Set wks = Tabelle1 Zeil = 20 Me.Caption = wks.Range("B3").Value LR = wks.Cells(wks.Rows.Count, 1).End(xlUp).Row With Me.ListBox1 '.ListIndex = ListBox1.ListCount - 1 .ColumnCount = 13 .ColumnWidths = "80;0;0;80;80;80;80;80;80;80;80;80;80" .ColumnHeads = True .RowSource = "'" & wks.Name & "'!A" & LR - Zeil + 1 & ":M" & LR .SetFocus End With End Sub

Private Sub UserForm_Initialize() Dim wks As Worksheet: Set wks = Tabelle1 Me.Caption = wks.Range("B3").Value With Me.ListBox1 .Clear .ColumnCount = 22 .ColumnWidths = "80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80" .List = wks.Range(wks.Cells(wks.Rows.Count, 1).End(xlUp).Offset(-19, 0), wks.Cells(wks.Rows.Count, 1).End(xlUp).Offset(0, 21)).Value .ListIndex = ListBox1.ListCount - 1 End With End Sub

Private Sub UserForm_Initialize() Dim wks As Worksheet: Set wks = Tabelle1 Dim rg As Range, i1 As Integer, i2 As Integer Me.Caption = wks.Range("B3").Value With Me.ListBox1 '.ListIndex = ListBox1.ListCount - 1 .ColumnCount = 13 .ColumnWidths = "80;0;0;80;80;80;80;80;80;80;80;80;80" .ColumnHeads = True ''Debug.Print "'" & wks.Name & "'!A6:M" & wks.Cells(wks.Rows.Count, 1).End(xlUp).Row Set rg = wks.Range("A6:M" & wks.Cells(wks.Rows.Count, 1).End(xlUp).Row) i1 = rg.Rows.Count ' Anuahl aller Zeilen im Rangebereich i2 = i1 - 20 ' neuer Startpunkt der letzten 20 Set rg = rg.Offset(i2, 0).Resize(20) .RowSource = "'" & rg.Parent.Name & "'!" & rg.Address(True, True) .SetFocus End With Set rg = Nothing: Set wks = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Letzte 20 Einträge aus Tabelle anzeigen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Letzte 20 Einträge aus Tabelle anzeigen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread