Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kann man Shapes umbenennen ?

Forumthread: Kann man Shapes umbenennen ?

Kann man Shapes umbenennen ?
03.12.2007 18:06:18
Peter
Hallo Zusammen
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.

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Kann man Shapes umbenennen ?
03.12.2007 18:13:31
Hajo_Zi
Hallo Peter,
Ja.

Und Wie .. ?
03.12.2007 18:23:00
Peter
Sali Hajo
Ich habe auf deiner Page gesucht .. hast du mir einen Einzeiler Code .. das ich sehe wie das geht ?
Freundliche Grüsse - Peter.

AW: Und Wie .. ?
03.12.2007 18:28:00
Hajo_Zi
Hallo Peter,
wie war nicht die Frage. Aber Jan hat es ja schon gepostet.
Gruß Hajo

Anzeige
AW: Kann man Shapes umbenennen ?
03.12.2007 18:24:28
Jan
Hi,
die kannst du auch umbenennen, wenn du den namen nicht kennst, Beispiel Autoshapes.

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

Anzeige
Vielen Dank Jan .. !!
03.12.2007 18:28:00
Peter
Sali Jan
Das ist ein sehr gutes Beispiel .. ich danke dir und wünsche noch einen schönen abend .. Peter ..

Geziehltes umbenennen geht nicht ..?
03.12.2007 19:09:00
Peter
Sali Jan
Ich kann ein Shape geziehlt nicht umbenennen. Hast du mir ein Beispiel, wo ich zum Beispiel das Shape "Oval 1" in "Peter 1" umbenennen kann?
Würde mich freuen wenn das geht .. freundliche Grüsse - Peter

Anzeige
AW: Geziehltes umbenennen geht nicht ..?
03.12.2007 19:10:34
Peter
Sali Jan
Ich kann ein Shape geziehlt nicht umbenennen. Hast du mir ein Beispiel, wo ich zum Beispiel das Shape "Oval 1" in "Peter 1" umbenennen kann?
Würde mich freuen wenn das geht .. freundliche Grüsse - Peter

AW: Geziehltes umbenennen geht doch...
03.12.2007 19:19:15
{Boris}
Hi Peter,

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 ..

Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Shapes in Excel umbenennen: So geht's


Schritt-für-Schritt-Anleitung

Um Shapes in Excel, wie beispielsweise Autoshapes, umzubenennen, kannst du die folgende Schritt-für-Schritt-Anleitung nutzen:

  1. Öffne Excel und navigiere zu dem Arbeitsblatt, das das Shape enthält, das du umbenennen möchtest.

  2. Öffne den VBA-Editor:

    • Drücke ALT + F11.
  3. Füge ein neues Modul hinzu:

    • Klicke auf Einfügen > Modul.
  4. Gib den folgenden VBA-Code ein, um ein Shape gezielt umzubenennen:

    Sub ShapeUmbenennen()
       Tabelle1.Shapes("Oval 1").Name = "Peter 1"
    End Sub
  5. Führe das Makro aus:

    • Drücke F5 oder wähle Run > Run Sub/UserForm.

Jetzt sollte das Shape mit dem Namen "Oval 1" in "Peter 1" umbenannt sein.


Häufige Fehler und Lösungen

  • Fehler: Shape wird nicht gefunden.

    • Lösung: Stelle sicher, dass der Name des Shapes korrekt eingegeben wurde. Du kannst den aktuellen Namen überprüfen, indem du das Shape anklickst und im Namenfeld oben links nachsiehst.
  • Fehler: Laufzeitfehler 9 - Index außerhalb des Bereichs.

    • Lösung: Dies passiert, wenn das angegebene Shape nicht existiert. Überprüfe die Schreibweise des Shape-Namens, z. B. "Oval 1".

Alternative Methoden

Eine Alternative zur Verwendung von VBA ist die manuelle Umbenennung von Shapes:

  1. Klicke mit der rechten Maustaste auf das Shape.
  2. Wähle die Option "Form formatieren".
  3. Gehe zum Reiter "Größe und Eigenschaften" und finde das Feld für den Namen, wo du den Namen manuell ändern kannst.

Diese Methode ist besonders nützlich, wenn du keine VBA-Kenntnisse hast.


Praktische Beispiele

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

Tipps für Profis

  • 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.


FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige