Sub
monat(
ByVal
mo
As
Integer
)
Dim
m, z1, z2, i, j
As
Integer
Therapeut = ComboBox1.Text
Tabelle2.Cells(2, 1) =
""
:
Tabelle2.Range(
"D5:T28"
) =
""
:
Tabelle7.Range(
"A1:D200"
) =
""
:
Tabelle2.Cells(2, 1) = Mitarbeiter
For
i = 1
To
Tabelle4.Cells(Rows.Count,
"H"
).
End
(xlUp).Row
m = Val(Mid(Tabelle4.Cells(i, 2), 4, 2))
Status = Tabelle4.Cells(i, 9)
Kategorie = Tabelle4.Cells(i, 10)
If
Kategorie =
"Intern"
Then
z1 = 2 * mo + 3
If
Kategorie =
"Extern"
Then
z1 = 2 * mo + 4
Rem
If
i = 386
Then
Stop
If
Tabelle4.Cells(i, 8) = Mitarbeiter
And
m = mo
Then
Rem
Stop
Rem
If
i = 386
Then
Stop
If
Status =
"beendet"
Then
Tabelle2.Cells(z1, 4) = Tabelle4.Cells(i, 5) + Tabelle2.Cells(z1, 4)
If
Status =
"Urlaub (MA)"
Then
Tabelle2.Cells(z1, 8) = Tabelle2.Cells(z1, 8) + 1
If
Status =
"Urlaub (MA)"
Then
Tabelle7.Cells(z1, 1) = Tabelle4.Cells(i, 2)
If
Status =
"Krank (MA)"
Then
Tabelle2.Cells(z1, 9) = Tabelle2.Cells(z1, 9) + 1
If
Status =
"Krank (Kind)"
Then
Tabelle2.Cells(z1, 20) = Tabelle2.Cells(z1, 20) + 1
If
Status =
"Fortbildung (MA)"
Then
Tabelle2.Cells(z1, 10) = Tabelle2.Cells(z1, 10) + 1
If
Status =
"Noch nicht erschienen"
Then
Tabelle2.Cells(z1, 12) = Tabelle4.Cells(i, 5) + Tabelle2.Cells(z1, 12)
If
Status =
"Teamsitzung"
Then
Tabelle2.Cells(z1, 19) = Tabelle4.Cells(i, 5) + Tabelle2.Cells(z1, 19)
If
Status =
"beendet"
And
Tabelle4.Cells(i, 13) > 0
Then
Tabelle2.Cells(z1, 15) = Tabelle2.Cells(z1, 15) + 1
Rem
Stop
End
If
End
If
Next
i
End
Sub