Hilfe bei Code Änderung
23.10.2005 10:57:39
Hambücker
ich möchte den unten angezeigten Code so umändern, damit die Eingabe in der Tabelle 3 in Zelle A1 erscheint.
Die Eingabe erfolgt in eine Textbox die sich in einer UF befindet,wer von euch kann mir da weiter helfen ?
MfG Dieter
Private Sub CommandButton1_Click()
On Error GoTo Fehler
If TextBox1.Value = "" Then Exit Sub
[A1] = [A1] + CDbl(UserForm1.TextBox1)
Unload Me
Exit Sub
Fehler:
MsgBox "Es handelt sich nicht um reine Zahler!", vbCritical, "Falsche Eingabe"
TextBox1.Value = ""
End Sub