Kalender durch klicken Kontrolkäshen Feiertage usw anzeigen

[schwarzeteufel]

Ich habe eine Kalender und in der Feiertag Tabelle kann man des so formel eingeben wen es Brückentag, langes Wochenende ist das in Zelle ausgibt.
Danach durch klicken Kontrollkäshen ein und ausschaltet.

siehe Kalender

[Guschti]

Hallo

Mal so ...

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim Treffer As String, i As Integer
    Cancel = True
        If Intersect(Target, Range("B4:AJ28")) Is Nothing Then Exit Sub
            If Target = "" Then Exit Sub
                If Application.WorksheetFunction.CountIf(Sheets("Feiertage").Range("B2:B33"), Target) > 0 Then
        For i = 2 To 33
            If Sheets("Feiertage").Cells(i, 2) = Target Then
                Treffer = Sheets("Feiertage").Cells(i, 4)
            End If
        Next
        MsgBox Treffer
   End If
End Sub

Anstatt Rechtsklick kannst du auch Doppelklick verwenden

Gruss Guschti

[schwarzeteufel]

Guschti wo kommt diese Code und wie soll ich verwenden Ich habe das in Modul in Tabelle probiert geht nicht

[Klaus-Dieter]

Hallo,

geht nicht, ist nicht sehr aufschlussreich.

[schwarzeteufel]

Hallo Klaus was geht nicht? kann man Die Feiertage
durchklicken, wenn hacken anzeigen wenn keine haken nicht anzeigen geht das nicht

---

Hallo Klaus geht es viellecht das ich die Brückentage und Langes Wochenende im Kalender anzeigen kann

siehe diese Kalender

[Käpt'n Blaubär]

Hallo,

Guschti wo kommt diese Code und wie soll ich verwenden Ich habe das in Modul in Tabelle probiert geht nicht

wo der Code hingehört, steht doch da.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

kopiere ihn in das Blattmodul, auf dem er arbeiten soll.

Ich habe das in Modul in Tabelle probiert geht nicht

sagt nichts darüber aus, was den Helfern zielführend weiterhelfen könnte.
Ach ja, nochmal ganz deutlich: Der Code gehört nicht etwa in ein normales Modul

[Guschti]

Hallo Schwarzeteufel

In deinem Aufbau wären noch einige Anpassungen nötig.
Mal das Design (siehe Bild) 
Dann die vielen unnötigen Bed.Formate
Löse den Monatsbeginn mit Formeln und nicht Bed.Format weiß.
Löse das Monatsende auch mit Formeln
Ein Jahreskalender sollte auch auf einem A4 Blatt gedruckt werden.

Warum ist Ostern kein Feiertag?
Der 15. August ist Maria Himmelfahrt und nicht Nationalfeiertag (CH)

Brückentage können Montage oder Freitage sein. Also wenn am Dienstag Feiertag ist , ist der Montag ein Brückentag.
Verlängertes gib es nur dann, wenn ich am Sonntag spät abends noch stockbesoffen bin, mach ich am Montag frei.

Also löse zuerst mal die oberen Probleme, bevor du weitermachst.

Gruss Guschti

---

Hallo Schwarzerteufel

Hier mal ein Beispiel wie man es machen könnte.
Für Besichtigung der Formeln Blattschutz entfernen.

Gruss Guschti