|
Hallo,
vielleicht hilft dieser VBA-Code weiter?
Public Sub Urlaubstage()
Dim rngUrlaubstagesteffen As Range
Dim rngMontag As Range
Dim rngDienstag As Range
Dim rngMittwoch As Range
Dim rngDonnerstag As Range
Dim rngFreitag As Range
Dim strText As String
strText = "U"
Set rngUrlaubstagesteffen = Sheets("Urlaub").Range("C3:C43")
Set rngMontag = Sheets("1").Range("F7")
Set rngDienstag = Sheets("1").Range("H7")
Set rngMittwoch = Sheets("1").Range("J7")
Set rngDonnerstag = Sheets("1").Range("L7")
Set rngFreitag = Sheets("1").Range("N7")
Sheets("1").Range("F16").Value = IIf(IsUrlaub(rngMontag, rngUrlaubstagesteffen), strText, "")
Sheets("1").Range("H16").Value = IIf(IsUrlaub(rngDienstag, rngUrlaubstagesteffen), strText, "")
Sheets("1").Range("J16").Value = IIf(IsUrlaub(rngMittwoch, rngUrlaubstagesteffen), strText, "")
Sheets("1").Range("L16").Value = IIf(IsUrlaub(rngDonnerstag, rngUrlaubstagesteffen), strText, "")
Sheets("1").Range("N16").Value = IIf(IsUrlaub(rngFreitag, rngUrlaubstagesteffen), strText, "")
End Sub
Function IsUrlaub(rngDate As Range, rngUrlaub As Range) As Boolean
Dim rngFound As Range
Set rngFound = rngUrlaub.Find(What:=rngDate, LookIn:=xlValues, MatchCase:=False)
IsUrlaub = CBool(Not rngFound Is Nothing)
End Function
LG, BigBen
|