Bedingte Formatierung mit VBA

[steve1da]

Es gibt keine bedingte Formatierung Blau!
Es gibt eine mit blauer Schrift: =ZÄHLENWENN(G11:AG11;HEUTE())=1

[Andyle]

Screen

sorry, war vorhin die falsche Datei!

[steve1da]

Da sind zwei große Böcke drin.
Zum einen sind deine von-bis Bereiche nicht gleich groß, der eine endet in Zeile 76, der andere in 77.
Dann sind deine Ferien-Datumswerte TEXTE. Durch das &A4 beim Wverweis erzeugst du einen TEXT, keine ZAHL.

Code:

=WENN(WVERWEIS($D$59;$E$59:$U$77;3;0)<>"";(WVERWEIS($D$59;$E$59:$U$77;3;0)&A4)*1;"")

Das natürlich überall machen wo du solche "Datumswerte" erzeugst.

[Andyle]

Perfekt!
Funzt super!


Nochmals vielen vielen Dank!

[Andyle]

Leider noch nicht ganz erledigt.  

Ich markiere die gewünschten Urlaubstage mit Doppelklick.

Wenn jetzt allerdings der Tag ein Ferientag ist, kann ich per Doppelklick kein urlaub setzen.

Kann man dass irgendwie anpassen?

[Andyle]

Leider noch nicht ganz erledigt.  

Ich markiere die gewünschten Urlaubstage mit Doppelklick.

Wenn jetzt allerdings der Tag ein Ferientag ist, kann ich per Doppelklick kein urlaub setzen.

Kann man dass irgendwie anpassen?

Den Code habe ich jetzt wie folgt angepasst, der den Hintergrund der geklickten Zelle löscht und auf Rot setzt.

Code:

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

With Target

If Intersect(Target, Range("G4:AF32")) Is Nothing Then
MsgBox "Zelle liegt nicht im zugelassenen Zellbereich!"

Else

If Target.Interior.ColorIndex <> 3 Then

   'Löscht Hintergrund wenn Ferien
   .FormatConditions.Delete
   'Ende

   .Interior.ColorIndex = 3
   Else
   .Interior.ColorIndex = 0
   End If

End If

End With
Cancel = True
End Sub

Nur wie bekomme ich es hin, dass er sich eventuell die orginale Zellenhintergrundfarbe merkt, wenn ich die rote markierung wieder lösche.

Bsp.: 22.11.xx ist ein Ferientag (Hintergrundfarbe gelb) -> Doppelklick (Urlaub) Hintergrundfarbe Rot -> Doppelklick 22.11.xx -> Hintergrundfarbe wird wieder Feiertag (Gelb)

[redeagle56]

Hallo,
habe mal versucht, die Feiertage und Ferien einzufügen.
Dazu habe ich deine Hilfstabelle zur Feiertage gemacht und eine
Tabelle Ferien hinzugefügt.
Vielleicht kannst du damit etwas anfangen.
Frage: Warum willst du an einem Feiertag Urlaub nehmen?

MfG Günter

  Urlaubskalender_1.xlsm (Größe: 72,17 KB / Downloads: 9)

[Andyle]

Erstmal vielen Dank.

So wie der Kalender jetzt mit den Ferien ist, ist meine Datei auch.

Es lässt sich ebenfalls kein Urlaub per Doppelklik setzen wenn die Zelle ein Ferientag ist.

Auch die TBlätter Feiertage, Ferien finde ich sehr unübersichtlich!

Ist natürlich immer eine persönliche Ansichtssache und soll nichts negatives aussagen!

[redeagle56]

Hallo,
warum willst du an einem Feiertag Urlaub nehmen?

MfG Günter

[Andyle]

Da hast Du falsch gelesen!

Ferien nicht Feiertage sind in meinem Kalender Gelb!

Es kann passieren, dass wenn ein Ferien-tag ist, man Urlaub nimmt.

Ist Urlaub markiert wird aus Gelb (Ferien-tag) Rot (Urlaub)     funktioniert auch!

Allerdings kann es passieren, dass man den Urlaub aus diesen Ferien-tagen wieder löscht und dann soll es ja wieder Gelb werden wenn es ein Ferien-tag war/ist.

und dann macht es dass nicht.

Bsp.: 22.11.xx ist ein Ferientag (Hintergrundfarbe gelb) 
-> 
Doppelklick (Urlaub) Hintergrundfarbe Rot 
->
Doppelklick 22.11.xx Urlaubstag (rot) (wird jetzt momentan weis)
-> 
Hintergrundfarbe wird wieder Ferien-tag (Gelb)