Hallo Karin,
habe deine Hinweise versucht, klappt aber nicht so richtig.
Der erste Teil mit den Zeilenhöhen funktioniert aber der Rest nicht.
Hier mal der Code:
Sub test()
Sheets("Tabelle1").Activate
Range("a4").Select
Do While ActiveCell.RowHeight = 0
If ActiveCell.RowHeight = 0 Then
ActiveCell.Offset(1, 0).Select
End If
Loop
Do While ActiveCell.RowHeight > 0
If ActiveCell.RowHeight > 0 Then
ActiveCell.Select
UserForm1.ComboBox1.AddItem cell
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Gruß bage