Bei ComboBox leere Zelle nicht anzeigen
Nils
ich habe ein scheinbar unlösbares Problem und brauche dringend professionell Hilfe;-)
ICh habe hier eine ComboBox die die angegebenen Werte aus eine Zeile und nicht aus einer Spalte ausliest. Allerdings ist in dieser Zeile nur in jeder zweiten Zelle ein Wert hinterlegt. Die leeren Zellen möchte ich nicht anzeigen lassen.
Private Sub ComboBox2_Change()
Dim Projekt As String
Dim inSpalte As Integer
Dim vnt As Variant
Dim D As Object
Dim i As Integer
Projekt = ComboBox2
ThisWorkbook.Sheets(Projekt).Select
vnt = Range("C3:C230").Value
Set D = CreateObject("scripting.dictionary")
For i = 3 To UBound(vnt)
On Error Resume Next
If Len(vnt(3, i)) > 0 Then D(vnt(3, i)) = 0
On Error GoTo 0
Next
ComboBox1.List = D.keys
Set D = Nothing
For inSpalte = 3 To 230 'Gruß
NIls
Anzeige