ich habe eine Combobox wie folgt befüllt(anderer Sub):
cob_k.RowSource = "plan!alles"
cob_k.ColumnCount = 2
cob_k.ColumnWidths = "30 Pt;20 Pt;"
Dann habe ich bei dem Change Sub die 2 Spalten anzeigen lassen.
If cob_k.ListIndex > -1 Then
Nr = cob_k.List(cob_k.ListIndex, 0)
Name = cob_k.List(cob_k.ListIndex, 1)
cob_k.Text = Nr & " " & Name
End If
Nun möchte ich gern über ein Button die Spalte 1 in eine Tabelle schreiben, hier bin so so weit:
With Worksheets("Liste_Werte")
zeile = Cells(Rows.Count, 4).End(xlUp).Row + 1
Cells(zeile, 3) = txtbx_Datum.Value
Nr = cob_k.Column(0)
Cells(zeile, 4) = Nr
Irgendwie erkennt Excel die Column Eigenschaft nicht.
Könnt ihr mir sagen wie ich auf die aktuellen Combobox Werte zugreife? Also nur die 1. Spalte?
Gruß
Marcel