Folgendes Phänomen:
Ich habe ein Tabellenblatt "Feiertage", hier stehen von A2:A120 die Feiertage der nächsten Jahre. Ich habe ein Tabellenblatt "Kalender" in dem ich mit VBA die Feiertage farblich hervorhebe. Hier hat der jeweilige Tag, den ich analysiere die Variable iTag (Range).
Der nicht so richtig funktionierende Code:
Dim iTag, Frei as Range
Set Frei = Sheets("Feiertage").Rows("A:A").find(iTag)
...
Folgende Situation:
Den 25.12.2015 identifiziert der Code als Feiertag, ok, ist auch richtig! Aber aus irgend einen Grund auch den 25.02.2016?! Das Datum 25.02.2016 steht aber nicht in Spalte A von Feiertage?! Wenn man einen Stop Punkt in der durchlaufenden umliegenden Schleife macht, sieht man bei iTag = 25.02.2016, dass Frei = 25.12.2015 hat! Da steht also dann:
Set "25.12.2015" = Sheets("Feiertage").Rows("A:A").find("25.02.2016")
Warum?
Entsprechend wird mir jetzt der 25.02.2016 als Feiertag markiert... :-/