Wert aus UserForm löschen
29.05.2005 19:30:38
Klaus
ich brauche wieder einmal eure Hilfe.
Ich habe eine UserForm geschrieben, in der das Eingabefeld mit "EUR" formatiert ist.
Wenn ich den Wert eingebe, dann erscheint nach Klick in der Zelle B1.
Wenn der Anwender sich nun versehen hat, die UserForm erneut aufruft und dort den Wert löscht, bleibt der Wert aber in der Zelle B1 erhalten.
Wie kann ich erreichen, dass dort der Wert auch gelöscht wird.
Hier meine vereinfachte UserForm:
Private Sub CommandButton1_Click()
If IsNumeric(Replace(einkuenfte, "EUR ", "")) Then Range("Tabelle1!B1") = CDbl(Replace(einkuenfte, "EUR ", "")) 'Verwaltungskosten'
Hide
End Sub
Private Sub einkuenfte_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Einkünfte laufenden VA-Jahr'
If einkuenfte <> "" Then
einkuenfte = Format(einkuenfte, "EUR #,##0")
End If
End Sub