mehrspaltige ComboBox
18.08.2005 00:54:25
Tinu
Ich kämpfe wieder mal gegen (oder mit) VBA
In einer UserForm möchte ich eine ComboBox in Abhängigkeit einer anderen ComboBox auffüllen. Dies klappt auch einwandfrei:
' ComboBox4 laden
Private Sub ComboBox3_Change()
Dim x As Long
Dim lz As Long
ComboBox4.Clear
With ThisWorkbook.Sheets("Sheet1")
lz = .Range("A65536").End(xlUp).Row
For x = 3 To lz
If (.Cells(x, 3)) = ComboBox3.Text Then
If WorksheetFunction.CountIf(.Range("E2:E" & x), .Cells(x, 5)) = 1 Then
If (.Cells(x, 5)) <> "0" Then
ComboBox4.AddItem .Cells(x, 5)
End If
End If
End If
Next
End With
End Sub
Nun möchte ich aber in dieser ComboBox nicht nur eine Spalte (.Cells(x, 5)) anzeigen, sondern drei Spalten, also .Cells(x, 5&6&7). Die ComboBox habe ich unter "Eigenschaften" schon als dreispaltig definiert.
Wie muss ich nun den Code abändern?
Für Euere Hilfe bin ich sehr dankbar!
Gruss
Tinu
Anzeige