Zellenposition aus Combobox
05.07.2006 19:02:36
felix
Ich lass mir 3 Comboboxen mit allen Titeln der ersten Zeile erstellen. In der ComboBox sollen nur die Titel stehen. Diese werden dann als Variable (public) gespeichert und nachher weiterverwendet.
hier der Code:
Private Sub userform_Initialize()
Dim lngCounter As Long
For lngCounter = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
ComboBox1.AddItem Cells(1, lngCounter).Value
ComboBox2.AddItem Cells(1, lngCounter).Value
ComboBox3.AddItem Cells(1, lngCounter).Value
Next lngCounter
End Sub
Was ich aber noch gerne möchte ist die Position der Zelle welche in der Combobox angewählt wurde.
Mit find() könnt ich die Variable schon finden, aber es kann ja mehrmals der selbe Titel auftauchen.
Kann man beim Hinzufügen der Titel nicht irgendwie noch die Zellposition mitnehmen? habt ihr irgendwelche Lösungsansätze?
grüsse
felix