VBA Userform Rückantwort

Guten Abend zusammen,
mal wieder habe ich ein kleines problem.
Wir haben eine User Form in dieser geben wir die Personaltagesstand ein. Die User Form geht mit der rechten Maustaste an.
In der Frühschicht wird zuerst eingegeben und Spätschicht danach. jeweils nach Schichtende.
Ich möchte gerne eine Abfrage haben, bzw eine Rückmeldung.
Wenn in der Spätschicht die Daten eingegeben werden, muß in der Mitarbeiterzusammenfassung ( in einen anderen Laufwerk gespeichert) bei der Gruppe 1 35 MA herauskommen.
Bei Gruppe 2 14.
Diese MA werden in der Zeile 74 und 75 zusammengezählt.
Sollten es nicht 35 sein dann soll eine Rückantwort kommen Bitte MA Anzahl Gruppe 1 prüfen
Das Gleiche mit der Gruppe 2 mit 14 Bitte MA Anzahl Gruppe 2 prüfen.
Aber die Daten sollen trotzdem gespeichert werden. Es soll nur der Hinweis kommen.
Wenn alles passt, dann wie bis jetzt: "Daten wurden Erfolgreich in die Datenbank gespeichert !!!"
Eingabe Userform:
https://www.herber.de/bbs/user/115787.xlsm
Ausgabe Mitarbeiterzusammenfassung:
https://www.herber.de/bbs/user/115788.xlsm
Wäre sowas möglich ?
In dieser Zusammenfassung komm nur ich rein und wenn ich drei Wochen im Urlaub bin, kann es keiner prüfen und in drei Wochen den Fehler suchen, ist immer total aufwendig.
Danke an Alle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sepp,
dann in UF Spätschicht.

Private Sub Cmd_Speichern_Click()
Dim crt As Control
Dim intCol As Integer
Dim lngDatum As Long

lngDatum = CDate(TextBox55_datum)
Application.ScreenUpdating = False
Workbooks.Open Filename:="L:\Transfer\Allgemein\Sepp\Mitarbeiterzusammenfassung.xlsm"
With Workbooks("Mitarbeiterzusammenfassung.xlsm").Sheets("2017")
  If Not IsError(Application.Match(lngDatum, .Rows(1), 0)) Then
    intCol = Application.Match(lngDatum, .Rows(1), 0)
    .Cells(32, intCol).Value = TextBox44_user.Value
    .Cells(33, intCol).Value = Format(CDate(TextBox66_zeit.Value), "hh:mm")
    .Cells(34, intCol).Value = Txt_Staplerspät.Value
    .Cells(35, intCol).Value = Txt_Staplerspät_Krank.Value
    .Cells(36, intCol).Value = Txt_Staplerspät_Urlaub.Value
    .Cells(37, intCol).Value = Txt_Staplerspät_Frei.Value
    
    .Cells(43, intCol).Value = Txt_Auffüllerspät.Value
    .Cells(44, intCol).Value = Txt_Auffüllerspät_Krank.Value
    .Cells(45, intCol).Value = Txt_Auffüllerspät_Urlaub.Value
    .Cells(46, intCol).Value = Txt_Auffüllerspät_Frei.Value
    If .Cells(74, intCol) <> 35 Then MsgBox "Gruppe 1 prüfen!"
    If .Cells(75, intCol) <> 14 Then MsgBox "Gruppe 2 prüfen!"
  Else
    MsgBox "falsches Datum"
    Workbooks("Mitarbeiterzusammenfassung.xlsm").Close
    With TextBox55_datum
      .SetFocus
      .SelStart = 0
      .SelLength = Len(.Text)
    End With
    Exit Sub
  End If
End With
MsgBox "Daten wurden Erfolgreich in die Datenbank gespeichert !!!", , "Rückantwort -> Datenbank"
With Workbooks("Mitarbeiterzusammenfassung.xlsm")
  .Save
  .Close
End With
Application.ScreenUpdating = True
For Each crt In Me.Controls
  Select Case TypeName(crt)
    Case "TextBox"
      crt.Value = ""
    Case Else
  End Select
Next
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Userform Rückantwort

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread