Hilfe!! Combobox!
24.09.2004 09:25:23
Christian
ich komm einfach nicht voran und muß deshalb meine Frage nochmals stellen
Ich möchte meine Combobox aus der Userform mit dem Dropdownfeld aus dem Excel Sheet so verknüfen, das egal wo ich meine Daten auswähle im anderen Feld die gleiche Auswahl steht.
Ulf hat mir schon einmal geantwortet und folgendes vorgeschlagen:
Einfach den Listenindex zuweisen:
Userform1.ComboBox1.Listenindex = combobox1.listenindex
und umgekehrt...
Ich bring das aber nicht zum laufen.
Ich kann mal zeigen, wie es momentan aussieht!
Private Sub userform_Initialize()
Set frm = Projektdaten
Sheets("Produktdaten").Activate
With frm
With Projektdaten.ComboBox1
.RowSource = "Grunddaten!M5:M10"
End With
With Projektdaten.ComboBox2
.RowSource = "Grunddaten!M5:M10"
End With
With Projektdaten.ComboBox3
.RowSource = "Daten!D2:D22"
End With
End Sub
Private Sub ComboBox1_Change()
Set frm = Projektdaten
Sheets("Produktdaten").Activate
With frm
Range("Linie.SMD.BS").Select
ActiveCell.OFFSET(0, 0).Value = .ComboBox1.Value
End With
End Sub
Private Sub ComboBox2_Change()
Set frm = Projektdaten
Sheets("Produktdaten").Activate
With frm
.ComboBox2.ListIndex = dropdown21.ListIndex
dropdown21.ListIndex = .ComboBox2.ListIndex
End With
End Sub
Private Sub ComboBox3_Change()
Set frm = Projektdaten
Sheets("Produktdaten").Activate
With frm
Range("Kunde").Select
ActiveCell.OFFSET(0, 0).Value = .ComboBox3.Value
End With
End Sub
Ich hab bei ComboBox1 und 3 den Inhalt einfach ins sheet geschrieben, bei Combobox2 möchte ich aber auch im Sheet eine ComboBox haben.
Die Combobox im sheet heißt Dropdown21 und hat die gleiche Datenquelle.
Ich hoffe mir kann da jemand die Lösung zu meinem Problem schildern.
Danke!!!!!!
Christian