Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Markierung der Shapes ("Ellipse 1 - 5") aufheben

Forumthread: Markierung der Shapes ("Ellipse 1 - 5") aufheben

Markierung der Shapes ("Ellipse 1 - 5") aufheben
13.04.2024 09:47:23
Dieter(Drummer)
Guten Morgen an alle ...

Es werden alle Shapes in Tabellenblatt markiert und ich möchte NUR die Markierung der Shapes "Ellipse 1- 5") aufheben. Es wird mir ein Fehler angezeigt und
"
ActiveSheet.Shapes.Range("Ellipse 1", "Ellipse 2", "Ellipse 3", _

        "Ellipse 4", "Ellipse 5").Select = False
"
wird gelb markiert mit dem Fehlerhinweis: "Laufzeitfehler 450, Falsche Anzahl von Argumenten oder ungültige Zuweisung zu einer Eigenschaft".

Wie ich alle Shapes markieren kann OHNE das "Ellipse 1 - 5" markiert werden, ist mir bekannt. Ich möchte wohl es auch mt diesem Code versuchen und kann den Fehler nicht erkennen und beheben.

Mit der Bitte um Hilfe,
grüßt
Dieter(Drummer)

Jetziger Code: 
Sub Shape_Marker_weg()

ActiveSheet.Shapes.SelectAll

ActiveSheet.Shapes.Range("Ellipse 1", "Ellipse 2", "Ellipse 3", _

        "Ellipse 4", "Ellipse 5").Select = False

End Sub

Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Anders herum
13.04.2024 09:56:59
Beverly
Hi Dieter,

der einfachste Weg: laufe in einer Schleife über alles Shapes und schließe die nicht gewünschten dabei aus.

Bis später
Karin

Link zur Homepage: https://excel-inn.de/


Per Aus- und Einblenden z.B.:
13.04.2024 13:23:49
Kuwer
Hallo Dieter, 

Sub Shape_Marker_weg()

  With ActiveSheet.Shapes

    .SelectAll

    With .Range(Array("Ellipse 1", "Ellipse 2", "Ellipse 3", "Ellipse 4", "Ellipse 5"))

      .Visible = False

      .Visible = True

    End With

  End With

End Sub


Gruß, Uwe
Anzeige
AW: Per Aus- und Einblenden z.B.:
13.04.2024 14:08:06
Oppawinni
Wenn ich alles gelesen hätte, hätte ich mir meinen Beitrag auch sparen können. Aber das passiert halt, wenn man auf Antworten drückt, dann aber erst mal Kaffee und Kuchen rein zieht...
AW: Danke Kuwer, das ist eine gute Lösung, mit ...
13.04.2024 15:04:01
Dieter(Drummer)
Hallo Kuwer,

... ich gut leben kann :-).
Auf diese Varinate: 
 .Visible = False  .Visible = True

wäre ich nicht gekommen.

Danke dir und einen schöen Tag an alle ...

Gruß,
Dieter(Drummer)
Anzeige
AW: Markierung der Shapes ("Ellipse 1 - 5") aufheben
13.04.2024 13:48:24
Oppawinni
Bin mir jetzt nicht sicher, aber war es nicht so, dass Hidden shapes nicht selektiert werden können. Also erst hide für die bestimmten shapes, alles selektieren und dann wieder visible, könnte vielleicht gehen.
Einfach mal probieren ...
13.04.2024 13:59:24
Kuwer
... und nicht gleich wild spekulieren!
AW: Einfach mal probieren ...
13.04.2024 14:14:15
Oppawinni
Hab gerade kein Excel und was heißt hier wild?
Anzeige
AW: Es soll möglich sein, Markierung nachträglich auzuheben
13.04.2024 10:07:59
Dieter(Drummer)
Hallo Karin,

Danke für Rückmeldung.
Dein Vorschag ist mit bekannt. Es soll aber auch möglich sein, das bestimmten Shapes, wie in meinem Code, die Markierung nachträglich wieder entfernt wird.
Evtl. gibt es auch diese Möglichkeit und diese interessiert mich.

Gruß, Dieter(Drummer)

Anzeige
Ja, in einer Schleife
13.04.2024 11:02:41
Beverly
Hi Dieter,

indem du nachträglich über alle selektierten Shapes läufst, nur die gewünschten in ein Array schreibst und dann die im Array stehenden erneut selektierst - damit sind die nicht erwünschten abgewählt...

Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: Da bin ich überfragt
13.04.2024 11:31:48
Dieter(Drummer)
Hallo Karin,

Danke für Hinweis und Möglichkeit. Dies ist zuviel Aufwand und übersteigt meine VBA Möglichkeit.
Wenn es keine kürzere Variante gibt, wie von mir fehlerhaft angezeigt, lass ich es.

Danke dir und einen schönen Tag.

Gruß, Dieter(Drummer)
Du hattest doch selbst geschrieben,...
13.04.2024 12:30:31
Beverly
Hi Dieter,

...dass dir die (von mir in meinem 1. Beitrag vorgeschlagene) Lösung, mittels Schleife ausschließlich die gewünschten Shapes auszuwählen bzw. die nicht gewünschten auszulassen, bekannt ist. Weshalb dann nun plötzlich alles sein lassen, nur weil es nicht die Methode gibt die du dir erhofft hast?

Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: Ich suchte halt eine Lösung, nur ...
13.04.2024 12:37:51
Dieter(Drummer)
Hallo Karin,

... für bestimmte Shapes, nachträglich die Selection zu beenden und dies per einfacher Lösung.

Danke dir dennoch und

Gruß, Dieter(Drummer)
Weshalb muss man denn mit dem Kopf durch die Wand?
13.04.2024 12:53:24
Beverly
Hi Dieter,

die EINFACHE Möglichkeit ist doch genau die wie ich bereits beschrieben habe und die dir ja angeblich bekannt ist...

Aber ich sehe schon, du möchtest lieber KEINE Lösung als eine Lösung, die ich vorgeschlagen habe. Ich habe damit kein Problem.
Keine Angst, Beträge von dir werde ich künftig ignorieren.

Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
Weshalb muss man denn sich persönlich beleidigt fühlen....
13.04.2024 13:16:12
ralf_b
.... wenn die angebotene Lösung zwar funktioniert aber nicht vom TE übernommen werden möchte.
Er hat sich doch ausgiebig bedankt. Was braucht es denn um deine Helfer-Seele wieder in Einklang mit dem Universum zu bringen?
AW: Karin, ich würde es sehr bedauern, wenn ...
13.04.2024 14:58:22
Dieter(Drummer)
Hallo Karin,

... du meine doch seltenen Beiträge, Anfragen, ignorieren würdest. Deine kompetente Hilfe ist immer gern, auch von mir, gesehen.
Sorry, wenn ich deinem Antwortbeitrag nicht folge geleistet habe.

Der Beitrag von "Kuwer 13.04.2024 13:23:49" hat mir eine gute Lösung gebracht.

Bitte nicht sauer sein ....

Gruß, Dieter(Drummer)
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige