Userform Dateneingabe Textfeld Format

Private Sub Datenuebernahme_Click()
Range("A8").Select
If ActiveCell.Offset(1, 0).Value  "" Then
Selection.End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
If NameZahlungsempfänger  "" Then
ActiveCell.Value = NameZahlungsempfänger.Value
ActiveCell.Offset(0, 1).Value = Eingangsdatum
ActiveCell.Offset(0, 2).Value = Projektnummer
ActiveCell.Offset(0, 3).Value = Art
ActiveCell.Offset(0, 4).Value = Brutto
ActiveCell.Offset(0, 5).Value = Netto
ActiveCell.Offset(0, 6).Value = Faelligam
ActiveCell.Offset(0, 7).Value = Bezahltam
ActiveCell.Offset(0, 8).Value = Prio
ActiveCell.Offset(0, 9).Value = AnmerkungZahlmittel
NameZahlungsempfänger.Text = vbNullString
Projektnummer.Text = vbNullString
Art.Text = vbNullString
Brutto.Text = vbNullString
Netto.Text = vbNullString
Faelligam.Text = vbNullString
Bezahltam.Text = vbNullString
Prio.Text = vbNullString
AnmerkungZahlmittel.Text = vbNullString
Application.StatusBar = False
Else
Application.StatusBar = "kein Wert, dann auch kein Eintrag"
End If
NameZahlungsempfänger.SetFocus
End Sub