Herbers Excel-Forum - das Archiv

Laufzeitfehler1004

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Laufzeitfehler1004
von: Michael
Geschrieben am: 26.11.2003 14:26:41
Hallo Leute
Ich habe ein Problem. Wenn ich in der Combobox1 etwas suche und dann lösche kommt sofort Laufzeitfehler1004. Das Gleiche passiert auch wenn ich eine falsche Zahl eingebe.



Private Sub Combobox1_Change()
Textbox1 = Cells(Combobox1.ListIndex + 1, 2)
End Sub



Was habe ich falsch gemacht??
Danke Michael
Bild

Betrifft: AW: Laufzeitfehler1004
von: GerdW
Geschrieben am: 26.11.2003 14:44:00
"etwas suche und dann lösche"

Damit meinst du vermutlich den Inhalt der Combobox?
In dem Augenblick, da du den Inhalt löschst, wird der Listindex
-1 und eine Zelle: cells(0,2) gibts nun mal nicht.

Gerd
Bild

Betrifft: AW: Laufzeitfehler1004
von: michael
Geschrieben am: 26.11.2003 14:57:47
Hallo
Gibt's eine andere Möglichkeit
Ich möchte mit der Combobox (Tabelle1)etwas suchen und in der anderen Textbox die nächste Spalte wiedergeben. Ich habe aber nicht nur diese eine Textbox sondern 8 Textboxen. Ich hatte ursprünglich statt Textboxen ComboBoxen und das Ganze mit ListIndex gelöst. Ich konnte dann aber nichts in der gleichen Zelle über die Userform ändern.
Michael
Bild

Betrifft: AW: Laufzeitfehler1004
von: GerdW
Geschrieben am: 26.11.2003 15:10:21
Irgendwie steh ich im Schrank, ich versteh dein Problem nicht.

Gerd
Bild

Betrifft: AW: Laufzeitfehler1004
von: michael
Geschrieben am: 26.11.2003 15:24:19
Hallo Gerd
So sah ungefähr sah das Ganze einmal aus (nur um einiges länger)
In SpalteA(Kundennummer) in SpalteB (Familienname) usw. Ich möchte mit der CombBox anhand der Kundennummer die zugehörigen Einträge finden und ändern (und mit einem Button die Einträge in die gleiche Zelle zurückschreiben). Ich habe verzweifelt nach einer anderen Lösung gesucht, aber nie etwas gefunden (VBA-Kenntnisse in Eigenregie)


Private Sub Kundennummer_Change()
Familienname.ListIndex = Kundennummer.ListIndex
Vorname.ListIndex = Kundennummer.ListIndex
Plz.ListIndex = Kundennummer.ListIndex
Ort.ListIndex = Kundennummer.ListIndex
Strasse.ListIndex = Kundennummer.ListIndex
End Sub



Gruss Michael
Bild