(leider bin ich noch nicht so geübt in VBA),ich habe einen Kalender mit Exelformel und folgendem Makro erstellt.Leider werden die Feiertage nicht eingefärbt.Mit der bedingten Formatierung funktioniert die Benutzerdefinierte Function Feiertage einwandfrei,d.h. die jeweiligen Zählen werden eingefärbt.Ich brauche dazu auch eine Lösung für folgendes Problem.In Zelle z.B. (C43) steht das Stardatum in Zelle (E43) das Endatum,Bereich dazwischen inklusive Start-und Endatum einfärben.Bisher habe ich es mit bendingter Formatierung und dieser Formel gelöst =ODER(UND(BL82>=$Q$44;BL82<=$U$44);UND(BL82>=$Q$43;BL82<=$U$43);UND(BL82>=$AC$43;BL82<=$AG$43)).
Vielen dank im Voraus
mario
Das Makro:Sub wochenende1()
Dim ber1 As Range, ber2 As Range, ber3 As Range
Dim bereiche As Range
Worksheets(1).Select
Dim Zelle As Range
Dim dat As Date
Set ber1 = [I5:J35,T5:U35,AE5:AF35,AP5:AQ35,BA5:BB35,BL5:BM35,cc5:cd35,cn5:co35,cy5:cz35,dj5:dk35,du5:dv35,ef5:eg35,ew5:ex35,fh5:fi35,fs5:ft35,GD5:GE35,GO5:GP35,GZ5:HA35]
Set ber2 = [i53:j83,t53:u83,ae53:af83,ap53:aq83,ba53:bb83,bl53:bm83,cc53:cd83,cn53:co83,cy53:cz83,dj53:dk83,du53:dv83,ef53:eg83,ew53:ex83,fh53:fi83,fs53:ft83,GD53:GE83,GO53:GP83,GZ53:HA83]
Set ber3 = [I101:J131,T101:U131,AE101:AF131,AP101:AQ131,BA101:BB131,BL101:BM131,cc101:cd131,cn101:co131,cy101:cz131,dj101:dk131,du101:dv131,ef101:eg131,ew101:ex131,fh101:fi131,fs101:ft131,gd101:ge131,go101:gp131,gz101:ha131]
Set bereiche = Union(ber1, ber2, ber3)
bereiche.Select
For Each bereiche In Selection.Areas
For Each Zelle In bereiche
If Weekday(Zelle) = 1 Then
Zelle.Font.ColorIndex = 11
Zelle.Font.FontStyle = "fett"
End If
If Weekday(Zelle) = 7 Then
Zelle.Font.ColorIndex = 3
Zelle.Font.FontStyle = "fett"
End If
If (Zelle) = (Date) Then
Zelle.Interior.ColorIndex = 43
Zelle.Font.FontStyle = "fett"
End If
If (Zelle) = Right(Feiertag(dat), 1) <> "*" And Feiertag(dat) <> "" = True Then
Zelle.Interior.ColorIndex = 15
End If
Next
Next
[A1].Select
End Sub