Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

MsgBoxen bis alles Erfüllt wurde. | Herbers Excel-Forum


Betrifft: MsgBoxen bis alles Erfüllt wurde. von: Heinz H
Geschrieben am: 02.01.2010 20:34:37

Hallo Leute

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

  

Betrifft: AW: MsgBoxen bis alles Erfüllt wurde. von: Josef Ehrensberger
Geschrieben am: 02.01.2010 21:17:00

Hallo Heinz,

so?

Private Sub cmdUebertragen_Click()

If Me.txtA <> "" Then
  MsgBox "Bitte einen Namen eingeben!"
  Exit Sub
ElseIf Me.txtB <> "" Then
  MsgBox "Bitte Personalnummer eingeben!"
  Exit Sub
ElseIf Me.TextBox17 <> "" Then
  MsgBox "Bitte Beginn der Stundenliste eingeben."
  Exit Sub
End If

'....





Gruß Sepp



  

Betrifft: AW: MsgBoxen bis alles Erfüllt wurde. von: Heinz H
Geschrieben am: 02.01.2010 21:19:09

Hallo Josef

Zum 1000 mal - Recht herzlichen D A N K !!

Gutes Nächtli
Heinz


Beiträge aus den Excel-Beispielen zum Thema "MsgBoxen bis alles Erfüllt wurde."