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
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
Öffne Excel und navigiere zu dem Arbeitsblatt, auf dem Du das Textshape hinzufügen möchtest.
Klicke auf die Entwicklertools und wähle „Visual Basic“ aus, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
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
Ändere den Namen des Shapes, falls notwendig. Im obigen Beispiel wird auf "Text Box 1" verwiesen.
Führe das Makro aus, indem Du auf „Ausführen“ klickst oder F5 drückst.
Fehler: "Shape nicht gefunden"
Fehler: Text wird nicht angezeigt
Du kannst auch den Text in Shapes über die Benutzeroberfläche ändern, ohne VBA zu verwenden:
Diese Methode eignet sich gut, wenn Du nur gelegentlich den Text in Shapes ändern möchtest.
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
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
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.
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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen