Laufzeitfehler1004

• Laufzeitfehler1004 von Michael vom 26.11.2003 14:26:41
  • AW: Laufzeitfehler1004 - von GerdW am 26.11.2003 14:44:00
    • AW: Laufzeitfehler1004 - von michael am 26.11.2003 14:57:47
      • AW: Laufzeitfehler1004 - von GerdW am 26.11.2003 15:10:21
        • AW: Laufzeitfehler1004 - von michael am 26.11.2003 15:24:19

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

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

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

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

Gerd

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