Sub berechnung()
Dim Spalte As Integer, Zeile As Integer, NrDatum As Integer, Spalte1 As Integer
Dim Datum As Date
Dim Anzahl As Integer, Arbeiter As Integer
Dim MaxArbeiter As Integer, MaxTage As Integer
Dim Eingabe As String
Dim Zelle As String
Dim Festmacher As Integer, Mal As Integer, Pos As Integer
Eingabe = InputBox("Anzahl der Mitarbeiter", "Mitarbeiter")
If Eingabe = "" Then Exit Sub
MaxArbeiter = CInt(Eingabe)
Eingabe = InputBox("Anzahl der Tage im Monat", "Monat")
If Eingabe = "" Or Not IsNumeric(Eingabe) Then Exit Sub
MaxTage = CInt(Eingabe)
For Zeile = 4 To MaxArbeiter + 4
Arbeiter = Worksheets("April_2016").Cells(Zeile, 5).Value
For Spalte = 6 To MaxTage + 6
Datum = Worksheets("April_2016").Cells(3, Spalte).Value
For NrDatum = 6 To 23
If Worksheets("Schiff_1").Cells(NrDatum, 1).Value = Datum Then Exit For
Next NrDatum
Anzahl = 0
For Spalte1 = 5 To 15
Zelle = Worksheets("Schiff_1").Cells(NrDatum, Spalte1).Value
If Zelle <> "" Then
Pos = InStr(1, Zelle, "/", 1)
If Pos = 0 Then
Festmacher = CInt(Zelle)
Mal = 1
Else
Festmacher = CInt(Mid(Zelle, 1, Pos - 1))
Mal = CInt(Mid(Zelle, Pos + 1))
End If
If Festmacher = Arbeiter Then Anzahl = Anzahl + Mal
End If
Next Spalte1
Worksheets("April_2016").Cells(Zeile, Spalte).Value = Anzahl
Next Spalte
Next Zeile
End Sub