@Sepp
17.01.2018 18:58:38
Johann
Vielen Dank nochmals für deine Hilfe,
ich habe noch eine Frage zu diesem Code
Sub Namen_einlesen(TargetSheet As Worksheet)
Dim lngLast As Long
With Sheets("Daten")
lngLast = Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row)
TargetSheet.Range("A2:D99") = ""
TargetSheet.Range("A2:D" & lngLast) = .Range("A2:D" & lngLast).Value
End With
Call mitarbeiterTage(TargetSheet)
End Sub
Im jeweiligen Monat in der Zeile A100 versuche ich die Anzahl der MA
zu ermitteln.
=Anzahl2(A2:A99)
Als Ergebnis bekomme ich 98
Tatsächlich sind es jedoch 33
Wenn ich nun diesen Code so erweitere bekomme ich eine Fehlermeldung.
Sub Namen_einlesen(TargetSheet As Worksheet)
Dim lngLast As Long
With Sheets("Daten")
lngLast = Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row)
TargetSheet.Range("A2:D99") = ""
TargetSheet.Range("A2:D" & lngLast) = .Range("A2:D" & lngLast).Value
End With
For s = 2 To 99
If Cells(1, s).Value