Ich bin ein wenig am verzweifeln und konnte leider leider nichts passendes finden.
Ich habe eine Combobox, die ich mit Werten aus einer Tabelle folgendermasen gefüllt habe:
For i = 1 To tab_name.Cells(1, 2).End(xlDown).Row
With formular1.cbo_Name
.AddItem
.List(.ListCount - 1, 0) = tab_name.Cells(i, 2)
.List(.ListCount - 1, 1) = tab_name.Cells(i, 3)
End With
next I
'tab_name.Cells(i, 2) enthält den Namen des Mitarbeiter
'tab_name.Cells(i, 3) enthält die Personalnummer
Durch einen Doppelklick in der Tabelle Basis soll das Formular geöffnet und alle Felder des Formular gefüllt werden.
Da ich manche Namen doppelt habe und nur die Personalnummer eindeutig ist, möchte ich den Eintrag der Combobox über die zweite Spalte auswählen.
Solange ich in der Combobox nur eine Spalte hatte, habe ich es folgendermasen gemacht:
formular1.cbo_Name = basis.Cells(zeile, 3)
'In Zeile wird vorher die Zeilenzahl ermittelt
Dieser Aufruf funktioniert soweit auch, jedoch nimmt er mir bei doppelten Namen immer den oberen.
Beispiel:
Meier 123
Meier 234
Ich möchte den unteren Meier auswählen.
Für Eure Unterstützung schon mal vorab Vielen Dank