Button, Wert in aktive Textbox schreiben

Forumthread: Button, Wert in aktive Textbox schreiben

28.02.2019 18:17:22

Tommy

Hallo
Ich habe eine Userform (Userform5), auf dieser möchte ich mehrere Button anlegen, die einen bestimmten Wert oder Text in die aktive Textbox (dort, wo der Curser ist) schreibt.
Das Textfeld ist in der Userform4.
Geht sowas?
Wie würde der Code dazu aussehen.
Vielen Dank
Gruß Tommy

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Button, Wert in aktive Textbox schreiben

28.02.2019 18:21:52

onur
AW: Button, Wert in aktive Textbox schreiben

28.02.2019 18:31:14

Mullit

AW: Button, Wert in aktive Textbox schreiben

28.02.2019 18:21:52

onur

Natürlich geht das - nur Mut!

AW: Button, Wert in aktive Textbox schreiben

28.02.2019 18:31:14

Mullit

Hallo,
...der würde so aussehen...

Option Explicit

Private Sub CommandButton1_Click()
With UserForm4
    If .Visible Then _
       If TypeOf .ActiveControl Is MSForms.TextBox Then _
           .ActiveControl.Value = "Hallo"
End With
End Sub



VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 14

Gruß, Mullit

Infobox / Tutorial

Werte in aktive Textbox mittels Button in Excel schreiben

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne die Userform: Stelle sicher, dass Du die Userform (z.B. Userform5) in Deinem Excel-Projekt hast.
Füge Buttons hinzu: Platziere die gewünschten Buttons auf Deiner Userform. Jeder Button wird später einen bestimmten Text in die aktive Textbox schreiben.

Code für den Button: Klicke auf den ersten Button und öffne den Code-Editor. Füge den folgenden VBA-Code ein:

Option Explicit

Private Sub CommandButton1_Click()
   With UserForm4
       If .Visible Then _
           If TypeOf .ActiveControl Is MSForms.TextBox Then _
               .ActiveControl.Value = "Hallo"
   End With
End Sub

Wiederhole den Vorgang: Du kannst den Code für weitere Buttons anpassen, um unterschiedliche Werte in die Textbox zu schreiben, indem Du den Text in den Anführungszeichen änderst.
Teste die Userform: Starte die Userform und klicke auf die Buttons, um sicherzustellen, dass der Text korrekt in die aktive Textbox geschrieben wird.

Häufige Fehler und Lösungen

Fehler: Der Button schreibt keinen Text in die Textbox.
- Lösung: Überprüfe, ob die Userform sichtbar ist und ob tatsächlich eine Textbox aktiv ist, wenn Du den Button klickst.
Fehler: Der Code wird nicht ausgeführt.
- Lösung: Stelle sicher, dass Du den Code im Code-Editor der richtigen Userform eingefügt hast.

Alternative Methoden

Eine andere Möglichkeit, Werte in eine Textbox zu schreiben, ist die Verwendung von TextBox1.Value = "Dein Text", wenn Du den Text direkt in die Textbox ansprechen möchtest. Dies kann in einer anderen Subroutine erfolgen, die von einem Button oder einer anderen Aktion ausgelöst wird.

Praktische Beispiele

Text in die Textbox schreiben:

Wenn Du einen Button hast, der „Ja“ in die Textbox schreiben soll, ändere den Code so:

Private Sub CommandButton2_Click()
   With UserForm4
       If .Visible Then _
           If TypeOf .ActiveControl Is MSForms.TextBox Then _
               .ActiveControl.Value = "Ja"
   End With
End Sub

Zahlen in die Textbox:

Für einen Button, der eine Zahl schreiben soll, nutze:

Private Sub CommandButton3_Click()
   With UserForm4
       If .Visible Then _
           If TypeOf .ActiveControl Is MSForms.TextBox Then _
               .ActiveControl.Value = "123"
   End With
End Sub

Tipps für Profis

Verwende Konstanten: Definiere Textwerte als Konstanten, um Deinen Code lesbarer und wartbarer zu machen.
Fehlerbehandlung: Füge eine Fehlerbehandlung in Deinen Code ein, um unvorhergesehene Probleme elegant zu lösen.
Benutzerfreundlichkeit: Informiere den Benutzer, dass ein Wert erfolgreich in die Textbox geschrieben wurde, indem Du eine MessageBox anzeigst.

FAQ: Häufige Fragen

1. Kann ich mehrere Textboxen gleichzeitig ansprechen?
Ja, Du kannst den Code anpassen, um Werte in mehrere Textboxen gleichzeitig zu schreiben, indem Du die jeweilige Textbox direkt ansprichst.

2. Funktioniert das in allen Excel-Versionen?
Der gezeigte Code wurde in Excel 2010 (Office 14) getestet, sollte aber auch in anderen Versionen ab Excel 2007 funktionieren, solange VBA unterstützt wird.

Beliebteste Forumthreads (12 Monate)

Button, Wert in aktive Textbox schreiben

Forumthread: Button, Wert in aktive Textbox schreiben

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Werte in aktive Textbox mittels Button in Excel schreiben

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread