Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code stoppt

Forumthread: Code stoppt

Code stoppt
10.10.2002 11:27:56
smiley
Mein Code stoppt bei der Zeile:

Selection.ShapeRange.ZOrder msoSendToFront

Bei der Zeile kommt der Laufzeitfehler 438 ("Objekt unterstützt diese Eigenschaft oder Methode nicht")

Die Zeile stimmt aber, die habe ich schon öfters verwendet, woran kann es sonst liegen ?

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Code stoppt
10.10.2002 13:08:25
Michael Scheffler
Hallo,

hast Du tatsächlich etwas selektiert?

Micha

genauer
10.10.2002 13:18:12
smiley
sorry, daß ich das problem nicht genauer beschrieben habe

ich stell mal hier einen Teil des Codes rein, vielleicht erkennst du dann das Problem, daß ich habe.

If ComboBox261 = "1.4.2" Then Worksheets("Organigramm2").Shapes("Rechteck 21").Select& Worksheets("Organigramm2").Shapes("Autoform 42").Select
If ComboBox261 = "1.4.3" Then Worksheets("Organigramm2").Shapes("Rechteck 19").Select& Worksheets("Organigramm2").Shapes("Autoform 40").Select
If ComboBox261 = "1.4.4" Then Worksheets("Organigramm2").Shapes("Rechteck 22").Select& Worksheets("Organigramm2").Shapes("Autoform 43").Select
Selection.ShapeRange.ZOrder msoSendToFront

Ich schätze die Zeile "Selection.ShapeRange.ZOrder msoSendToFront" ist nur bei einer einfachen Selektion anwendbar.
Also auf:
If ComboBox261 = "1.4.4" Then Worksheets("Organigramm2").Select

mir wurde gesagt BringToFront wäre passender, aber das hat auch nicht geklappt.

Anzeige
Re: genauer
10.10.2002 13:33:26
Michael Scheffler
Siehe Hilfe?

Worksheets("Sheet1").ChartObjects(1).BringToFront

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige