mein Code :
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
Diese Daten sind jetzt im Tabellenblatt Daten drin. Ich möchte aber das einpaar Daten noch zusätzlich in Tabellenblatt Auswertung kommt.ws.Cells(intLZ, 1).Value = .TxtUser
.TxtUser = "" ' Soll in E48
ws.Cells(intLZ, 5).Value = .TxtAbtl
.TxtAbtl = "" ' Soll in A21
ws.Cells(intLZ, 4).Value = .TxtPerso
.TxtPerso = "" ' Soll in L45
If .KreuzÄnderung.Value = True Then ws.Cells(intLZ, 8).Value = "X" ' Soll in S5
If .KreuzLöschung.Value = True Then ws.Cells(intLZ, 9).Value = "X"'Soll inR9
If .KreuzEntlassung.Value = True Then ws.Cells(intLZ, 10).Value = "X" ' Soll in A6
Wie ergänze ich diesen Code.
Oder muss ich komplett einen neuen Code Schreiben ?
Danke an alle