Hallo Gemeinde,
Private Sub UserForm_Initialize()
TextBox21.SetFocus
Dim rows
Dim i As Integer, x As Integer 'Listboxen füllen ohne leerezeilen
'Dim sh As Worksheet
''Set sh = Sheets("Neuer_Song").UsedRange.rows.Count
Worksheets("Neuer_Song").Activate
'ListBox7.ColumnCount = 1 '2 = Anzahl Spalten
rows = ActiveSheet.UsedRange.rows.Count
For i = 24 To rows
'If ActiveSheet.Cells(i, 2) > "" Then
'ListBox7.AddItem ActiveSheet.Cells(i, 2)...