Eine Frage : Exel vergibt ja für Shapes automatisch einen Namen. Ich weiss wie man den Namen eruieren kann.
Frage : Wenn ich den Namen eines Shapes kenne, kann ich per VBA einen anderen Namen vergeben/umbenennen ?
Danke zum voraus an alle - Peter.
Sub t()
Dim Shp As Shape, i As Long
For i = 1 To ActiveSheet.Shapes.Count
If Shp.Type = msoAutoShape Then
Shp.Name = "meinShape" & CStr(i)
End If
Next
End Sub
mfg Jan
Sub til()
Tabelle1.Shapes("Oval 1").Name = "Peter 1"
End Sub
Grüße Boris
Vielen Dank Boris .. jetzt habe ich was ich brauche .. eine schönen abend noch - Peter ..
Um Shapes in Excel, wie beispielsweise Autoshapes, umzubenennen, kannst du die folgende Schritt-für-Schritt-Anleitung nutzen:
Öffne Excel und navigiere zu dem Arbeitsblatt, das das Shape enthält, das du umbenennen möchtest.
Öffne den VBA-Editor:
ALT + F11.Füge ein neues Modul hinzu:
Einfügen > Modul.Gib den folgenden VBA-Code ein, um ein Shape gezielt umzubenennen:
Sub ShapeUmbenennen()
Tabelle1.Shapes("Oval 1").Name = "Peter 1"
End Sub
Führe das Makro aus:
F5 oder wähle Run > Run Sub/UserForm.Jetzt sollte das Shape mit dem Namen "Oval 1" in "Peter 1" umbenannt sein.
Fehler: Shape wird nicht gefunden.
Fehler: Laufzeitfehler 9 - Index außerhalb des Bereichs.
Eine Alternative zur Verwendung von VBA ist die manuelle Umbenennung von Shapes:
Diese Methode ist besonders nützlich, wenn du keine VBA-Kenntnisse hast.
Hier sind einige praktische Beispiele, wie du Shapes in Excel umbenennen kannst:
Umbenennung eines Autoshapes in Excel:
Sub AutoshapeUmbenennen()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
If Shp.Type = msoAutoShape Then
Shp.Name = "MeinAutoshape_" & Shp.Index
End If
Next Shp
End Sub
Umbenennung mehrerer Shapes gleichzeitig:
Sub MehrereShapesUmbenennen()
Dim i As Long
For i = 1 To ActiveSheet.Shapes.Count
ActiveSheet.Shapes(i).Name = "Shape" & i
Next i
End Sub
Nutze aussagekräftige Namen: Anstatt generische Namen wie "Shape1" zu verwenden, benenne deine Shapes so, dass sie deren Funktion oder Inhalt widerspiegeln (z. B. "Diagramm_Kosten" oder "Oval_Produktion").
Verwende VBA-Listen: Halte eine Liste der Shape-Namen und deren Funktionen bereit, um schneller Änderungen vornehmen zu können.
1. Kann ich Shapes in Excel auch ohne VBA umbenennen? Ja, du kannst Shapes manuell umbenennen, indem du mit der rechten Maustaste auf das Shape klickst und die Eigenschaften anpasst.
2. Was sind Autoshapes in Excel? Autoshapes sind vordefinierte Formen in Excel, die du in deinen Arbeitsblättern verwenden kannst, um visuelle Elemente hinzuzufügen.
3. Wie finde ich den Namen eines Shapes in Excel? Du kannst den Namen eines Shapes im Namenfeld oben links sehen, wenn das Shape ausgewählt ist.