Problem mit Combobox
13.12.2007 12:19:00
Sebastian
Ich möchte eine Combobox mit Werten aus einer Tabelle befüllen. In dieser Tabelle befinden sich als Spalten u.a. Nummern (Bsp. 01, 02, 03...) und Namen (Bsp. Peter, Michael, Sabine). Ich möchte nun dass die Combobox mit einer Kombination aus beidem befüllt wird, also:
01 Peter
02 Michael
03 Sabine
Das habe ich soweit hinbekommen.
Beim Anklicken der Combobox soll allerdings wieder nur die Nummer ausgelesen werden und nicht der komplette Wert mitsamt dem Namen. Die Nummer mit left/right wieder auszulesen macht keinen Sinn, da es auch 3 und 4 stellige Nummern gibt. Wie mache ich sowas?
Hier der bisherige Code zum befüllen der Combobox (CboObjektListeNeu):
Sub CboObjektListeNeuFuellen()
CboObjektListeNeu.Clear
Worksheets("OST").Activate
Dim i As Long, tarCol As Long, startRow As Long, lastRow As Long
'Startzeile wo die Daten beginnen
startRow = 18
'Spalte wo die Daten stehen
'1 = A, 2 = B usw.
tarCol = 1
'Letzter Eintrag in dieser Spalte berechnen
lastRow = Cells(Rows.Count, tarCol).End(xlUp).Row
ReDim sendArr((lastRow - startRow) + 1)
''Daten erstmal in Array einlesen
For i = startRow To lastRow
'Hier wird Nummer und Name zusammengefügt:
sendArr(i - startRow) = Cells(i, tarCol) & " " & Cells(i, tarCol + 1)
Me.CboObjektListeNeu.AddItem
Me.CboObjektListeNeu.List = sendArr
Next
Me.CboObjektListeNeu.ListIndex = 0
End Sub
Dert Wert Me.CboObjektListeNeu.Value lieftert mir jetzt ja immer den gesamten Wert mit Nummer und Name also z.b 01 Peter. Ich möchte aber wieder nur die 01 herausbekommen.
Hat jemand eine Idee wie ich das hinbekommen könnte?
Ich bedanke mich im Voraus und bin gespannt auf Antworten.
Gruß, Sebastian