Clever-Excel-Forum

Hi Carsten,

ich würde das trotzdem per VBA eintragen lassen, denn mir würde nächstes Jahr nicht mehr einfallen, daß ich da die Formel reinkopieren muß.
Dann mußt Du auch an der bed. Formatierung nix ändern.

Wenn schon automatisch, dann richtig und nicht so etwas semi-automatisches / halbgares / angefangen und nicht zu Ende gebracht.

Hier die Makros dazu:

Microsoft Excel Objekt DieseArbeitsmappe

Option Explicit 



Private Sub Workbook_Open() 

  Call Feiertage_eintragen 

End Sub 

Modul mdl_Ostern_Feiertage

Option Explicit                             ' erzwingt die Deklaration von Variablen 



Sub Feiertage_eintragen() 

  Dim lngZeile As Long 

  Dim lngSpalte As Long 

   

  For lngZeile = 2 To 18 Step 4 

     For lngSpalte = 2 To Cells(lngZeile, Columns.Count).End(xlToLeft).Column 

        If Not IsError(Application.Match(Cells(lngZeile, lngSpalte), Worksheets("Feiertage").Range("C2:C30"), 0)) _

            Then Cells(lngZeile + 2, lngSpalte) = "F" 

     Next lngSpalte 

  Next lngZeile 

End Sub 

Im Blatt "Feiertage" stehen die Feiertage im Bereich C2:C30.

[attachment=16545]

Sehr elegant. Hab mir das gleich noch für den heutigen Tag gebaut. Jetzt ist es soweit Perfekt. :)

Danke

Hallo,

ich habe die Kalenderdatei nun für mehr Leute erweitert.

Wie kann ich die bed. Formatierung für die Färbung der Feiertage (wie wenn ich F eintragen würde, siehe jeweils letzte Zeile) und den aktuellen Tag so machen, daß es nicht nur in der ersten Zeile des Blocks funktioniert, sondern bei allen TN?
[attachment=29056]