Combobox/Textbox/ListIndex
27.11.2003 09:06:09
michael
Ich hoffe es kann mir irgenwer helfen. Ich habe im Tabellenblatt einige Daten stehen SpalteA(Kundennummer/Combobox) SpalteB(Familienname/TextBox)SpalteC(Strasse/TextBox) und einige mehr.
Ich möchte mit einer Combobox suchen und in den TextBoxen die benachbarten Zellen anzeigen. Das ist auch kein Problem mit diesem Code
Private Sub Kundennummercbo_Change() '
FamiliennameTxt = Cells(Kundennummercbo.ListIndex + 1, 2)
StrasseTxt = Cells(Kundennummercbo.ListIndex + 1, 3)
End Sub
Sobald ich die ComboBox lösche kommt ein Laufzeitfehler ( weil dann Listindex -1)
Gibt es vielleicht so etwas ähnliches, als wenn ich lauter ComboBoxen hätte
FamiliennameCbo.Listindex=KundennummerCbo.Listindex
StrasseCbo.Listindex=KundennummerCbo.Listindex
Ich hoffe es kennt sich jemand aus mit dem was ich geschrieben habe
Danke für Eure Hilfe
Michael
Anzeige