Textbox in Userform (VBA)

Computer: Software & Programmierung Visual Basic
#1

Guten Morgen, alle…

ich möchte gerne in einer Userform einen Text in einer Textbox ausgeben
und verwende folgenden Code:

Sub Textbox1_click()
TextBox1.Text = „Text“
End Sub

funktioniert nicht. was mache ich falsch?

es grüßt euch NikoDemo

#2

guten morgen…
vielleicht liegt es daran, dass die Prozedur Text b ox1_click
heisst und die Textbox selber Text B ox1 heisst…

#3

Sub Textbox1_click()
TextBox1.Text = „Text“
End Sub

funktioniert nicht. was mache ich falsch?

Hallo Niko,

vielleicht liegt es daran daß mein XL2000 bei der Textbox kein Click-Ereignis kennt.

man könnte das Doppelklick-Ereignis benutzen:

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = TextBox1.Text & "Test "
End Sub

oder das Mousedown-Ereignis:

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Text = TextBox1.Text & "Test "
End Sub

Gruß
Reinhard