verwende eine Inputbox, so etwa:
Sub Eingabe()
Dim Text As String
Text = InputBox("Wert eingeben")
Range("a1").Value = Text
End Sub
Gru? Heinz
Sub Eingabe()
Dim Text As String
Text = InputBox("Wert eingeben")
Range("a1").Value = Text
End Sub
Private Sub TextBox1_Change()
[a1] = TextBox1.Value
End Sub
Private Sub TextBox1_LostFocus()
'Irgendwelche g?ltigkeiten pr?fen
[a1] = TextBox1.Value
End Sub
Sub Eingabe()
Dim Text As String
Text = InputBox("Wert eingeben")
Range("a1").Value = Text
End Sub
Private Sub TextBox1_Change()
[a1] = TextBox1.Value
End Sub
Private Sub TextBox1_LostFocus()
'Irgendwelche g?ltigkeiten pr?fen
[a1] = TextBox1.Value
End Sub