Sub Makro1()
ActiveSheet.Shapes("Text Box 1").Select
antwort = InputBox("Bitte hier den Text eingeben:")
Selection.Characters.Text = antwort
Range("H20").Select
End Sub
Um über VBA einen Text in ein Textfeld auszugeben, kannst Du den folgenden Code verwenden. Dieser Code ermöglicht es Dir, einen Text über eine InputBox einzugeben, der dann in das Textfeld ausgegeben wird.
Sub Makro1()
ActiveSheet.Shapes("Text Box 1").Select
antwort = InputBox("Bitte hier den Text eingeben:")
Selection.Characters.Text = antwort
Range("H20").Select
End SubALT + F11, um den VBA-Editor zu öffnen.ALT + F8 aus.Fehler: Das Textfeld wird nicht gefunden.
Fehler: Eingabe wird nicht übernommen.
Eine alternative Methode wäre die Verwendung einer HTML-Variable in einem Textfeld auszugeben. Dies ist besonders nützlich, wenn Du formatierte Texte benötigst. Du kannst dazu den folgenden Code nutzen:
Sub HTMLTextInTextfeld()
Dim htmlText As String
htmlText = "<b>Dies ist ein fettgedruckter Text</b>"
ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text = htmlText
End SubDiese Methode funktioniert jedoch nur, wenn das Textfeld die richtige Formatierung unterstützt.
Ein praktisches Beispiel könnte die Verwendung des Textfeldes zur Darstellung von Benutzerinformationen sein. Du kannst den VBA-Code so anpassen:
Sub BenutzerInfo()
Dim name As String
name = InputBox("Bitte deinen Namen eingeben:")
ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text = "Willkommen, " & name & "!"
End SubHierbei wird der Benutzer aufgefordert, seinen Namen einzugeben, der dann in das Textfeld ausgegeben wird.
1. Kann ich mehrere Textfelder gleichzeitig ansprechen?
Ja, Du kannst in einer Schleife durch alle Textfelder iterieren und deren Text ändern.
2. Wie kann ich Textfeldinhalte löschen?
Du kannst die Textfeldinhalte mit folgendem Code löschen:
ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text = ""3. Ist dieser Code in allen Excel-Versionen anwendbar?
Ja, dieser VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, solange Du die grundlegenden VBA-Funktionen verwendest.
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