MsgBoxen bis alles Erfüllt wurde.
Heinz
Ich möchte das jedesmal die dazugehörige MsgBox erscheint bis alle Bedinungen erfüllt wurden.
Könnte mir bitte jemand weiter Helfen ?
Danke Heinz
Private Sub cmdUebertragen_Click()
If Me.txtA "" Then
MsgBox "Bitte einen Namen eingeben!"
If Me.txtB "" Then
MsgBox "Bitte Personalnummer eingeben!"
If Me.TextBox17 "" Then
MsgBox "Bitte Beginn der Stundenliste eingeben."
[B3].Value = txtA.Value 'Name
[A3].Value = txtB.Value 'PersNummer
[F1].Value = TextBox17.Value 'Beginn Stundenliste
[C96].Value = txtD.Value 'Montag Arb.Beginn
[E96].Value = TextBox1.Value 'Montag Arb.Ende
[C97].Value = TextBox5.Value 'Dienstag Arb.Beginn
[E97].Value = TextBox7.Value 'Dienstag Arb.Ende
[C98].Value = TextBox11.Value 'Mittwoch Arb.Beginn
[E98].Value = TextBox12.Value 'Mittwoch Arb.Ende
[C99].Value = TextBox16.Value 'Donnerstag Arb.Beginn
[E99].Value = TextBox18.Value 'Donnerstag Arb.Ende
[C100].Value = TextBox22.Value 'Freitag Arb.Beginn
[E100].Value = TextBox23.Value 'Freitag Arb.Ende
[B96].Value = TextBox2.Value 'Montag Pausezeit
[B97].Value = TextBox8.Value 'Dienstag Pausezeit
[B98].Value = TextBox13.Value 'Mittwoch Pausezeit
[B99].Value = TextBox19.Value 'Donnerstag Pausezeit
[B100].Value = TextBox24.Value 'Freitag Pausezeit
[J96].Value = TextBox4.Value 'Montag Pause bezahlt
[J97].Value = TextBox10.Value 'Dienstag Pause bezahlt
[J98].Value = TextBox15.Value 'Mittwoch Pause bezahlt
[J99].Value = TextBox21.Value 'Donnerstag Pause bezahlt
[J100].Value = TextBox26.Value 'Freitag Pause bezahlt
[B101].Value = TextBox30.Value 'Eintrittsdatum
[B102].Value = TextBox27.Value 'Urlaubsanspruch im Jahr
[B103].Value = TextBox28.Value 'Bildungsurlaub im Jahr
[B104].Value = TextBox29.Value 'Pflegefreistellung im Jahr
Call WochenendeWeg(True)
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ("Stundenliste" & " " & ActiveSheet.Range("B3") _
& " " & ActiveSheet.Range("F1")) & ".xls"
ActiveSheet.Shapes(Application.Caller).Delete 'Löscht den Button Neues Personalblatt _
erstellen
Unload Me
End Sub