Hallo,
ich habe folgende Funktion geschrieben, die auch funktioniert. Ich möchte diese aber gerne erweitern. Und zwar soll in der Zeile unterhalb von r (r ist immer eine Zeile) geprüft werden ob unter einem U ein anderer Eintrag steht. Wenn das der fall ist, soll das U nicht gezählt werden.
Ich danke euch für eure Hilfe
Gruß
Michael
Function Urlaub(r As Range)
Application.Volatile
Urlaub = 0
For Each r In r.Cells
If r = "U" Or r = "SU" Or r = "BU" Then
Urlaub = Urlaub + 1
End If
Next r