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ß