Supportnet / Forum / Tabellenkalkulation

Hallo, ich möchte in einem userformular einen button erstellen, der bei Ausführung einen in einer Textbox einzugegebenen Text diesen in eine zu definierende Excel Zelle einfügen. kann mir jemand einen tip dazu geben? Gruß Gunter

Hallo Gunter,

ich sehe, der Vokabeltrainer wird jetzt komfortabler.

Wenn Du also schon eine Userform (Userform1) erstellt hast mit Textbox (Textbox1) und Schaltfläche (commandButton1), dann dieses MAkro in eien Model kopieren:

Sub test()
  UserForm1.Show
End Sub

das folgende Makro dem CommandButton zuordnen:

Private Sub CommandButton1_Click()
  If TextBox1.Value = "" Then
    MsgBox ("Erst Vokabeln eingeben")
    Exit Sub
  End If
  Cells(1, 1).Value = TextBox1.Value
End Sub

Hier wird der Text der Textbox in Zelle A1 eingefügt.

Gruß
Günter

Hallo,
vielen Dank, schon wieder was gelernt, noch eine Frage, ist es auch möglich wenn ich im Excelsheet eine Textbox habe, den Text aus der Textbox vom Formular per click in die Textbox einzufügen?

Gruß
Gunter

Hallo Gunter,

also, Du hast mit der Steuerelement-Toolbox eine Textbox (TextBox1) in Deiner Tabelle ("Tabelle1") gemacht und möchtest nun aus der Userform mit einer Textbox (Textbox1) diesen Text in die Textbox der Tabelle übertragen.

Man muss die Textboxen unterscheiden könne, deshalb habe ich das Makro so geändert:

Option Explicit

Private Sub CommandButton1_Click()
  If Me.TextBox1.Value = "" Then
    MsgBox ("Erst Vokabeln eingeben")
    Exit Sub
  End If
  Sheets("Tabelle1").TextBox1.Text = Me.TextBox1.Value
End Sub

Probiere mal, ob es bei Dir läuft.

Gruß
Günter

• UserForm Listbox
• Auswahlfeld in Userform
• UserForm ComboBox
• Hilfe zur UserForm
• UserForm ComboBox