Gruppe
DatumZeit
Problem
Wie kann ich mir in einer Tabelle bei Eingabe der Arbeitsbeginnund Arbeitsendezeit automatisch das Plus oder Minus der Arbeitszeit zur Regelarbeitszeit anzeigen lassen. Die Mittagspause soll automatisch berücksichtigt werden.
StandardModule: Modul1
Sub Anlegen()
Dim i%
For i = 1 To 31
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = i
Next i
End Sub
Sub Schutz()
Dim i%
For i = 1 To 5
Worksheets(i).Unprotect
Next i
End Sub