Combobox Problem mit zwei spalten
01.02.2005 20:05:25
Yilmaz
ich habe folgendes Problem. Ich möchte mit einem Combobox 2 Spalten sehen und nach der Auswahl soll der zweite Spalten Wert in eine Zelle z.B. B2 übertragen werden. Wie geht das? Leider bin ich hier nur eine Laie.
Habe aber mittlerweile folgenden Code gebastelt funktioniert aber nur mit eine Spalte. Hier der Code:
Private Sub ComboBox1_Change()
Dim k As Integer
For k = 1 To Worksheets.Count
If Worksheets(k).Name = "Kunden" Then
ComboBox2.Clear
Dim zei As Integer
For zei = 10 To Worksheets("Kunden").Range("K65536").End(xlUp).Row
If Worksheets("Kunden").Cells(zei, 11) = Me.ComboBox1.Text Then
With ComboBox2
.AddItem Worksheets("Kunden").Cells(zei, 2)
' hier würde ich auch gerne das die Einträge in der 1 Spalte angezeigt werden
End With
End If
Next zei
Exit For
End If
Next
End Sub
Anzeige