Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Text in Shapes per Makro einfügen

Forumthread: Text in Shapes per Makro einfügen

Text in Shapes per Makro einfügen
02.07.2003 11:19:51
Hansi
Hallo,
wie kann ich den Text in einer Variable sText in ein Textshape per Makro einfügen??
Gruß und Danke für die Rückantworten im voraus
Hansi
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Shapes per Makro einfügen
02.07.2003 11:40:27
L.Vira
Ich geh mal davon aus, dass du mit "Textshape" eine Textbox aus
der Symbolleiste Zeichnen meinst:
Option Explicit

Sub Text_in_Textbox()
Dim objTb As Shape, strText As String
strText = "Das ist der Text, der in die Textbox soll."
Set objTb = ActiveSheet.Shapes("Text Box 1")
objTb.TextFrame.Characters.Text = strText
End Sub


Anzeige
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Text in Shapes per Makro einfügen


Schritt-für-Schritt-Anleitung

  1. Öffne Excel und navigiere zu dem Arbeitsblatt, auf dem Du das Textshape hinzufügen möchtest.

  2. Klicke auf die Entwicklertools und wähle „Visual Basic“ aus, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Rechtsklick auf „VBAProject (DeinWorkbookName)“.
    • Wähle „Einfügen“ und dann „Modul“.
  4. Kopiere den folgenden VBA-Code in das Modul:

    Sub Text_in_Textbox()
       Dim objTb As Shape, strText As String
       strText = "Das ist der Text, der in die Textbox soll."
       Set objTb = ActiveSheet.Shapes("Text Box 1")
       objTb.TextFrame.Characters.Text = strText
    End Sub
  5. Ändere den Namen des Shapes, falls notwendig. Im obigen Beispiel wird auf "Text Box 1" verwiesen.

  6. Führe das Makro aus, indem Du auf „Ausführen“ klickst oder F5 drückst.


Häufige Fehler und Lösungen

  • Fehler: "Shape nicht gefunden"

    • Lösung: Überprüfe den Namen des Shapes in Excel. Achte darauf, dass es exakt mit dem im Code übereinstimmt.
  • Fehler: Text wird nicht angezeigt

    • Lösung: Stelle sicher, dass das Shape tatsächlich ein Textshape ist und sich im aktiven Arbeitsblatt befindet.

Alternative Methoden

Du kannst auch den Text in Shapes über die Benutzeroberfläche ändern, ohne VBA zu verwenden:

  1. Klicke auf das gewünschte Shape.
  2. Beginne zu tippen, um den Text direkt in das Shape einzugeben.
  3. Um den Text zu ändern, klicke das Shape an und bearbeite den Text im Textfeld.

Diese Methode eignet sich gut, wenn Du nur gelegentlich den Text in Shapes ändern möchtest.


Praktische Beispiele

  1. Text in eine Textbox einfügen:

    Sub Text_in_Textbox()
       Dim objTb As Shape
       Set objTb = ActiveSheet.Shapes("Text Box 1")
       objTb.TextFrame.Characters.Text = "Neuer Text"
    End Sub
  2. Text in mehrere Shapes ändern:

    Sub Text_in_Viele_Textboxes()
       Dim objTb As Shape
       Dim i As Integer
       For i = 1 To 5
           Set objTb = ActiveSheet.Shapes("Text Box " & i)
           objTb.TextFrame.Characters.Text = "Text für Box " & i
       Next i
    End Sub

Tipps für Profis

  • Nutze Variablen für den Text: Anstatt den Text direkt im Code zu definieren, kannst Du ihn in einer Variablen speichern, um ihn einfacher zu ändern.

  • Variiere die Shapes: Experimentiere mit verschiedenen Shape-Typen, um zu sehen, wie sich der Text in diesen verhält.

  • Verwende Schleifen: Wenn Du viele Shapes hast, nutze Schleifen, um den Text effizient zu ändern.


FAQ: Häufige Fragen

1. Kann ich den Text in mehreren Shapes gleichzeitig ändern? Ja, das ist möglich, indem Du eine Schleife verwendest, um über die Shapes zu iterieren und den Text zu ändern.

2. Was ist der Unterschied zwischen einem Shape und einer Textbox? Ein Shape ist ein allgemeiner Begriff für grafische Objekte in Excel, während eine Textbox ein spezieller Typ von Shape ist, der für die Eingabe von Text verwendet wird.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige