Hallo Fedjo,
die kleinen Zeichen.
Option Explicit
Private Sub UserForm_Activate()
Dim lngZeile As Long
With ListBox4
.AddItem Worksheets("Allgemein").Cells(7, 4).Value
For lngZeile = 9 To 173
.AddItem Worksheets("Allgemein").Cells(lngZeile, 4).Value
Next lngZeile
End With
End Sub
Gruß Hajo