ich möchte das immer nur die letzten vier Einträge einer Spalte in einer Listbox anzeigt werden.
Vielen Dank für Euere Hilfe.
J. Jambo
Option Explicit
Public Sub test()
Dim letzte As Long
Dim L As Long
ListBox1.Clear
letzte = Range("A65536").End(xlUp).Row
For L = letzte - 3 To letzte
ListBox1.AddItem Cells(L, 1)
Next
End Sub