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
Problemstellung
Wie kann ich den standardmäßig vorgegebenen Freiraum am linken Rand von MS-Forms-Textfeldern unterdrücken?
Problemstellung
Wie kann ich in XL8 die Datumseingabe in ein Textfeld einer UserForm erzwingen?
Problemstellung
Wie kann ich die Werte aus einer Serie von UserForm-Textfeldern in die Spalte eines Tabellenblattes übertragen?
Problemstellung
Wie kann ich erreichen, dass der Cursor nach der Eingabe von 2 Ziffern in eine TextBox zur nächsten springt. Der Wert soll beim Verlassen der jeweiligen TextBox in der dem TextBox-Wert entsprechenden Spalte eingetragen werden.
Problemstellung
Nach einer UserForm-Textfeldeingabe soll eine Datumsprüfung erfolgen und bei negativem Ergebnis das Verlassen des Textfeldes verhindert werden.
Problemstellung
Im Texfeld einer UserForm-ComboBox soll immer der Wert aus Spalte 1 zusammen mit dem Wert aus Spalte 2 angezeigt werden, ohne dass das Auslesen der Auswahl beeinträchtigt wird.