Select case
05.06.2002 09:21:04
Jens
Hier mein Beispiel code:
Select Case B22
Case Month(B22) = Month(Hilf) Or Month(B22 + 2) = Month(Hilf)
Workbooks("kalendererstellen.xls").Worksheets("Feiertage").Range("d22").Value = "j"
End Select
Variable B22 und hilf sind vom Typ Date!
Danke im Vorraus