ich bräuchte wieder mal eure Hilfe, ich möchte beim öffne von Userform in einer Listbox, 13 letzen Einträge anzeigen lassen.
Bedanke mich im voraus für eure Hilfe
Private Sub UserForm_Activate()
Dim lrow As Long
With Sheets(1)
lrow = .Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.List = .Range(.Cells(WorksheetFunction.Max(2, lrow - 12), 1), .Cells(lrow, 1)). _
Value
End With
End Sub
GrußDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen