Office: Wert aus Inputbox in Textbox übernehmen ohne Inhalt zu löschen

Hallo zusammen,

ich habe mir ein Code mit hilfe KI gebastelt und komme nicht weiter.
Wenn ich über die Inputbox eine Text eingebe, soll er den bestehenden Textinhalt nicht leeren
sondern die Neueingabe zum bestehenden Inhalt hinzufügen.
Könnt ihr mir dabei helfen ?

Code:

Private Sub CommandButton3_Click()

Dim userInput As String
userInput = InputBox("Bitte einen Wert eingeben:")
If userInput <> "" Then
    ' Wenn der Benutzer einen Wert eingegeben hat, übertrage ihn in die Textbox
    ActiveSheet.Shapes.Range(Array("TextBox1")).Select
    TextBox1.Value = "" & userInput
Else
    ' Wenn der Benutzer Abbrechen geklickt hat, zeige eine Meldung an
    MsgBox "Kein Wert eingegeben."
End If

End Sub

Grüße

 

Hallo, dann versuche es mal so:

Code:

Option Explicit

Private Sub CommandButton3_Click()

Dim userInput As String
userInput = InputBox("Bitte einen Wert eingeben:")
If userInput <> "" Then
    ' Wenn der Benutzer einen Wert eingegeben hat, übertrage ihn in die Textbox
    TextBox1.Value = TextBox1.Value & " " & userInput
Else
    ' Wenn der Benutzer Abbrechen geklickt hat, zeige eine Meldung an
    MsgBox "Kein Wert eingegeben."
End If

End Sub

 

Danke, funktioniert !