|
Wir sind schon fast, aber leider noch nicht ganz bei der lösung.
Private Sub ComboBox56_Change()
Dim lngZeile As Long
If ComboBox56.ListIndex <> -1 Then
lngZeile = ComboBox56.ListIndex + 3 'Beginnt mit A3, also Zeile 3, der Index gebinnt mit 0
TextBox53.Text = Cells(lngZeile, 1)
End If
End Sub
das ist jetztmal 1 code wie ich ihn übernommen habe, nur schreibt er im Textfeld - Firmenname, nicht den Namen der Firma, z. b. Test Gmbh, sonder 3, ich brauche aber den Firmennamen und in der nächsten textbox die Adresse (eben aus der Excelliste - AUSWERTUNG)
verstehst du was ich meine?
Lg gerhard
|