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

Gruppierung neu, aber alte Nummer (Namen) lassen

Forumthread: Gruppierung neu, aber alte Nummer (Namen) lassen

Gruppierung neu, aber alte Nummer (Namen) lassen
28.10.2024 15:26:27
Dieter(Drummer)
Guten Tag an alle.

Mit dem Code werden alle Shapes markiert und gruppiert, ohne dem CommandButton. Das funktioniert.
Wenn ich die Gruppierung auflöse, und dann wieder neu gruppiere, erhält die Gruppierung immer eine neue Endnummer.
Z.B. Name: Gruppieren 3, wird dann z.B. zu Gruppieren 4.

Wie kann man der Gruppierung immer die gleiche, vorherige Endnummer geben

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

'Alle Shapes markieren und gruppieren, ohne CommandButton

ActiveSheet.CommandButton1.Visible = False

ActiveSheet.Shapes.SelectAll

Selection.ShapeRange.Group

ActiveSheet.CommandButton1.Visible = True

End Sub
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gruppierung neu, aber alte Nummer (Namen) lassen
28.10.2024 15:39:34
Yal
Hallo Dieter,

Du musst das neue Objekt abfangen, wenn er erzeugt wird und es einen neuen Namen vergeben.
Sieht so aus: 
Sub Marker_alle()

Dim obj As Object

'Alle Shapes markieren und gruppieren, ohne CommandButton

    ActiveSheet.CommandButton1.Visible = False

    ActiveSheet.Shapes.SelectAll

    Set obj = Selection.ShapeRange.Group

    obj.Name = "NameDerImmerGleichIst"

    ActiveSheet.CommandButton1.Visible = True

End Sub

(ungetestet)

VG
Yal
Anzeige
AW: Gruppierung neu, aber alte Nummer (Namen) lassen
28.10.2024 15:59:25
Dieter(Drummer)
Danke Yal für Code,

der prima funktioniert.

Wenn ich die Markierung mit "Markierung wieder herstellen" = "Regroup" benutze, wird wohl wieder eine neue Endnummer genommen.
Kann man das auch verhindern?

Evtl. hast du da auch eine Lösung.

Gruß, Dieter(Drummer)
AW: Gruppierung neu, aber alte Nummer (Namen) lassen
29.10.2024 09:19:45
Yal
Hallo Dieter,

ausserhalb von VBA, nein. Eigentlich passiert auch in VBA dasselbe: die neue Gruppierung bekommt einen neuen Namen, nur dass wir den Namen nachträglich ändern.

VG
Yal
Anzeige
AW: Gruppierung neu, aber alte Nummer (Namen) lassen
29.10.2024 10:23:40
Dieter(Drummer)
Danke Yal für Info.

Damit komme ich schon klar.

Gruß,
Dieter(Drummer)

Beliebteste Forumthreads (12 Monate)

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