Laufzeitfehler '1004'

[excl50]

Hallo zusammen,

der folgende Code liefert die Fehlermeldung: Die Activate-Methode des Range-Objektes konnte nicht ausgeführt werden.

Dim Zelle As Range

For Each Zelle In Tabelle2.UsedRange
      If Zelle.Value = Me.ComboBox1.Text Then Zelle.Offset(0, 1).Activate
Next Zelle

Was verursacht den Fehler?

Habt ihr alternative Ideen?

Vielen Dank im Voraus!

[Kuwer]

Hallo,

vielleicht so:

If Zelle.Value = Me.ComboBox1.Text Then Application.Goto Zelle.Offset(0, 1), True

Gruß Uwe

[Der Steuerfuzzi]

Hallo,

wie ist denn die Variable "Zelle" definiert? Oder hast Du diese überhaupt irgendwo festgelegt?

[Kuwer]

Hallo Michael,

putz mal Deine Brille!

Gruß Uwe

[Der Steuerfuzzi]

Oh, Du hast recht. Ich geh mal schnell meine (imaginäre) Brille Putzen. Sorry.

[Der Steuerfuzzi]

Hier mein Vorschlag:
For Each Zelle In Tabelle2.UsedRange.cells

[Der Steuerfuzzi]

Was mir noch einfällt:
Ist evtl. ein Blattschutz gesetzt oder der Bereich (Zeilen/Spalten) ausgeblendet?
Ist das Tabellenblatt vielleicht sogar ausgeblendet?

[Werner.M]

Hallo,

ist denn auch Tabelle2 das aktive Tabellenblatt zu dem Zeitpunkt wenn du den Code ausführst?
Wenn nicht, dann muss vorher noch Tabelle2 aktiviert werden. Du kannst eine Zelle auf einem Blatt nur Selektieren, wenn das entsprechende Blatt auch das aktive Blatt ist.

Wobei sich die grundsätzliche Frage stellt, wozu du die Zelle überhaupt selectierst - das ist in fast allen Fällen nämlich unnötig.

Gruß Werner

[Kuwer]

ist denn auch Tabelle2 das aktive Tabellenblatt zu dem Zeitpunkt wenn du den Code ausführst?
Wenn nicht, dann muss vorher noch Tabelle2 aktiviert werden. Du kannst eine Zelle auf einem Blatt nur Selektieren, wenn das entsprechende Blatt auch das aktive Blatt ist.

siehe #2!

Gruß Uwe

[Werner.M]

Hallo Uwe,

hab ich schon gesehen. Nur stellt sich die Frage, ob dem Fragesteller dann der eigentliche Fehler bewußt wird.

Lösungsvorschläge werden halt gerne einfach übernommen, ohne die Sache zu hinterfragen.

Gruß Werner