Hallo Community,
mir ist die Frage eigentlich zu peinlich, aber irgendwie funktioniert die if-abfrage nicht:
Private Sub UserForm_initialize()
On Error GoTo fehlerende:
With ListBox1
.ColumnCount = 2
.ColumnWidths = "3,5cm; 1cm"
For x = 0 To 100
If Worksheets("Tabelle1").Cells(19 + x, 1).Value <> "" Then
MsgBox "" & Worksheets("Tabelle1").Cells(19 + x, 1).Value
.AddItem
.List(.ListCount - 1, 0) = Worksheets("Tabelle1").Cells(19 + x, 1).Value 'Bezeichnung
.List(.ListCount - 1, 1) = Worksheets("Tabelle1").Cells(19 + x, 2).Value 'Nummer
Else
End If
Next x
End With
fehlerende:
End Sub
Betrachtet werden maximal 100 Datensätzen. Sofern ein Datensatz in einer Zeile vorhanden ist soll dieser In eine Listbox geladen werden. Bezugspunkt sind die Daten im Tabellenblatt "Tabelle1". Wieso auch immer fügt der Code-Schnipsel auch weitere Items in die ListBox ein, obwohl in der Zeile kein Datensatz vorhanden ist...
Vielen Dank für eure Hilfe!
|