VBA Combox
07.04.2019 13:08:45
Michael
ich habe in Tabellenblatt "Quelle" in Spalte B die Abteilung und in Spalte C die dazugehörige Abteilungsnummer stehen.
Ich mochte nun mit folgenden Code die Abteilung auswählen und mir die dazugehörige Abteilungsnummer in der TextBox "AbteilungTextbox" anzeigen lassen.
Klappt aber leider nicht.
Die Abteilungen werden noch nichtmal in die Combobox eingelesen.
Könnte mir da jemand helfen?
Private Sub Abteilung_Change()
If Abteilung.ListIndex > -1 Then
AbteilungTextbox.Text = Tabellenblatt("Quelle").Cells(Abteilung.ListIndex + 1, 2)
Else
AbteilungTextbox = ""
End If
End Sub
Anzeige