ComboBox Inhalt mit Bedingung
14.01.2015 15:19:37
Andreas
mit folgendem Code (Danke ans Forum) wird mir der Inhalt der Spalten 4 und 6 der Zeilen 3 bis 100 angezeigt. Das klappt auch super.
Private Sub UserForm_Initialize()
With ComboBox1
.ColumnCount = 2
.ColumnWidths = ";0"
For a = 3 To 100
Select Case a
Case 3 To 100
If Rows(a).RowHeight > 0 Then
.AddItem
.List(.ListCount - 1, 0) = Cells(a, 4) & " - " & Cells(a, 6)
.List(.ListCount - 1, 1) = a
End If
End Select
Next a
End With
Wie müsste der Code geändert werden, wenn in der Combobox nur die Zeilen angezeigt werden, bei denen in Spalte 3 nichts steht.
Danke fürs lesen und die Hilfe!
mfg, Andreas
Anzeige