Spezieller Kalender Wochentag markieren

[Rabe]

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.


  Kalender_CEF - Rabe V3.xlsb (Größe: 29,14 KB / Downloads: 5)

[Terades]

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

Danke

[Rabe]

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?

  Test Kalender.xlsb (Größe: 33,45 KB / Downloads: 6)