Userform Daten erweitern

Private Sub cmd_speichern_Click()
If Me.TxtUser  "" And Me.TxtDatum  "" And Me.TxtMANeu  "" And Me.TxtPerso  "" And Me. _
TxtAbtl  "" Then ' And Me.TxtVorlageName  "" And Me.TxtVorlagePerso  "" And Me.TxtBemerkung  ""
Set ws = ThisWorkbook.Sheets("Daten")
ws.Visible = True
intLZ = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
With Me
ws.Cells(intLZ, 1).Value = .TxtUser
.TxtUser = ""
ws.Cells(intLZ, 2).Value = CDate(.TxtDatum)
.TxtDatum = ""
ws.Cells(intLZ, 3).Value = .TxtMANeu
.TxtMANeu = ""
ws.Cells(intLZ, 4).Value = .TxtPerso
.TxtPerso = ""
ws.Cells(intLZ, 5).Value = .TxtAbtl
.TxtAbtl = ""
ws.Cells(intLZ, 13).Value = .TxtVorlageName
.TxtVorlageName = ""
ws.Cells(intLZ, 14).Value = .TxtVorlagePerso
.TxtVorlagePerso = ""
ws.Cells(intLZ, 15).Value = .TxtBemerkung
.TxtBemerkung = ""
If .KreuzNeuzugang.Value = True Then ws.Cells(intLZ, 6).Value = "X"
If .KreuzZusätzlich.Value = True Then ws.Cells(intLZ, 7).Value = "X"
If .KreuzÄnderung.Value = True Then ws.Cells(intLZ, 8).Value = "X"
If .KreuzLöschung.Value = True Then ws.Cells(intLZ, 9).Value = "X"
If .KreuzEntlassung.Value = True Then ws.Cells(intLZ, 10).Value = "X"
If .PbVJA.Value = True Then ws.Cells(intLZ, 11).Value = "X"
If .PbVNein.Value = True Then ws.Cells(intLZ, 12).Value = "X"
'.OptionButton1.Value = True
End With
ws.Visible = xlSheetHidden
Set ws = Nothing
Else
MsgBox "Bitte Felder befüllen"
Me.TxtUser.SetFocus
End If
MsgBox "gespeichet"
End Sub