KomboBox
27.06.2004 17:22:57
Bart
ich habe eine Arbeitsmappe (nur ein Blatt "Namen" genannt)mit drei verschiedene Angaben :
1. Name
2. Vorname
3. Ort
Ich habe eine Userform erstellt mit eine kombobox, und zwei label
Die arbeitmappe hat drei titel : A1 =namen, B1 = Vorname, C1 = Ort
Auf die Userform befinden sich combobox1, label1 und label2
Beim laden der userform wird die combobox1 automatisch gefüllt mit alle namen die sich ab A2 in der Kolonne befinden. Meine Frage :
Wie bekomme ich das hin, das wenn ich ein Name aus der Combobox1 auswähle, label1.caption automatisch den wert aus B2 bekommt und label2.caption den wert aus C2 ? Ich hoffe das ich mich deutlich ausgedrückt habe. Vielen dank im voraus !
Hierunten den code womit ich die Combobox1 fülle :
Private Sub UserForm_Initialize()
Dim i As Integer
Label1.Caption = ""
Label2.Caption = ""
For i = 2 To ActiveSheet.UsedRange.Rows.Count
ComboBox1.AddItem Sheets("namen").Cells(i, 1).Value
Next i
UserForm1.ComboBox1.ListIndex = 0
End Sub
Jetzt müsste ich den code hinkriegen um die label automatisch anzupassen:
Private Sub ComboBox1_Change()
End Sub
Schönen Gruss,
Bart