Objekte kopieren -- Namensveränderung

Hallo Freaks
wie kommt es (und wie kann man es verhindern) dass, wenn ich ein Tabellenblatt kopiere, in dem z.B. eine einfache Linie liegt (zb. Linie 100) diese Linie im kopierten Blatt auf einmal Linie 75 heißt !!!
Ich möchte möglichst im kopierten Blatt, dass alle Objekte den gleichen Namen (natürlich) behalten.
Selbst habe ich schon heraus bekommen, dass wenn man Linie 100 in z.B. Linie_1 umbenennt (im Namensfeld geht das ja) sie im kopierten Blatt weiter Linie_1 heisst. Ich will aber nicht jedes mal, wenn neue Objekte im Ursprungsblatt dazu kommen diese erst mühsam umbennen. Warum ändert Excel überhaupt beim kopieren diese Objekt-Namen ? Die Zelle A1 bleibt doch auch A1 !!!!
vielen Dank
W.Mommers

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo H.Mommers,
Es ist in der Tat so, dass Excel den Grafikobjekten, die den von Excel vergebenen Objektnamen haben, beim Kopieren der Blätter neue Zählnummern verpasst. Merkwürdigerweise ist das nicht immer so. Dabei werden dann die Lücken in den Zählnummern aufgefüllt, die durch das Löschen von Objekten entstanden sind. Die Zählung aller Shape-Objekte beginnt bei 1.
Der Hintergrund ist wahrscheinlich, dass der Nummernkreis der für Grafikobjekte vergeben werden kann/konnte begrenzt ist/wahr.
wie kommt es?
Weil die Programmierer von Microsoft es so wollen oder nicht anders können.
(und wie kann man es verhindern)
Indem man wie du schon bemerkt hast den Grafikelementen (Shapes) individuelle Nammen gibt.
Alternativ Kopieren des Tabellenblattes per Makro, dass dann im Nachlauf die Namen wieder abgleicht. Das geht, da die interne Zählnummer (Index-Nummer), die Excel den Objekten gibt, beim Kopiervorgang erhalten bleibt. Aber auch hier gibt es wieder mindestens eine Ausnahme (zumindest unter Excel 97): bei Elementen aus der Steuerelement-Toolbox funktioniert mein Makro nicht; diese Elemente bekommen Standardnamen.
Die Namen dieser Objekte kann man wahrscheinlich nur über den Objekt-Typ und die Caption-Eigenschaft abgleichen.
Gruß
Franz


Sub BlattKopie_mit_gleichen_ShapeNamen()
'Tabellenblatt kopieren mit identischen Shapenamen
Dim wksOrig As Worksheet, wksKopie As Worksheet, objShape As Shape
Set wksOrig = ActiveSheet
lngauswahl = MsgBox("Tabellenblatt in neue Arbeitsmappe kopieren?", _
vbYesNoCancel, "Tabellenblatt kopieren - identische Shape-Namen")
Select Case lngauswahl
Case vbCancel
GoTo Beenden
Case vbYes
wksOrig.Copy
Case vbNo
wksOrig.Copy after:=wksOrig
End Select
Set wksKopie = ActiveSheet
For Each objShape In wksKopie.Shapes
objShape.Name = wksOrig.Shapes(objShape.ZOrderPosition).Name
Next
Beenden:
Set objShape = Nothing: Set wksOrig = Nothing: Set wksKopie = Nothing
End Sub

Beliebteste Forumthreads (12 Monate)

Objekte kopieren -- Namensveränderung

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread