Hallo, ich habe ein Problem mit folgender Funktion: Function Abwesenheit(Bereich As Range, Kuerzel As String) For Each cell In Bereich If cell = Kuerzel Then zwi = zwi + 1 Else If zwi > 3 Then Abwesenheit = Abwesenheit + zwi - 1 zwi = 0 End If zwi = 0 End If Next End Function
Sie läßt sich als benutzerdefinierte Funktion leider nicht auf mehrere Arbeitsblätter anwenden, was aber zwingend erforderlich wäre.
Also kurz gesagt, bei den Jan05, Feb05 usw... benannten Blättern funktioniert zwar :
=Abwesenheit('Jan 05'!B8:AF8;"U")
leider aber nicht:
=Abwesenheit('Jan 05'!B8:AF8;'Feb 05'!B8:AF8;"U")
eventuell ist die Lösung ja ganz simpel, ich komme leider nicht drauf.
Für jegliche Hilfe bin ich natürlich im Voraus dankbar...
Greetz Alexander