Office: (Office 2016) Feld im Formular formatieren

Hallo Forum,
erstmal ein gutes frohes neues Jahr!
Zu meinem jetzigen Problem ist es, das ich in einem Formular in einem Datumsfeld (Das hat das Format Datum/Uhrzeit/ gerne formatieren möchte.
Der "Samstag" soll immer farblich hervorgehoben werden.
Unter der "Bedingte Formatierung" habe ich den folgenden eingegeben:
Feldwert ist - Gleich - DatTeil("w";"Datum")=6
Oder ist eine VBA-Code da besser? Und wenn ja wie?
Danke!

:)

 

Zunächst solltest Du Feldwert ist ersetzen durch Ausdruck ist, weil Du ja eine Formel als Ergebnis angibst..

 

Hallo Maxel,
danke, das habe ich auhc gemacht, aber auch kein Ergebnis. Also Feldwer in Ausdruck.

 

Hallo,
versuche es mal so:
Code:

Die 2 bestimmt den Wochenbeginn.

 

Hallo, leider irgendwie nicht. Gerade wenn es in der sogenannten Datenblattansicht.
Und unter Bedingte Formatierung gibt es auch Fehlermeldungen.
Habe die DB als ZIP hier angefügt.
Vielleicht kann man das besser sehen.

 

Hallo,
es geht mit der bedingten Formatierung exakt mit der Formel die ich bereits in #4 gezeigt habe,
Alle 2 Wochen ist aufwendiger, muss ich noch nachdenken.
Was soll denn bei alle 2 Wochen die Startwoche sein ?

 

Hallo, danke!
Warum habe ich es wie unter #4 es nicht hinbekommen?
Die Startwoche bzw. der Zyklus sollte immer dann sein, wenn ein Wechsel des Dienstes ansteht.
Oder musst man für sowas fortlaufend eine Startwoche benennen? In diesem Fall der 11.1.2020.

 

Hallo,
im Anhang noch eine Version für alle 2 Wochen, 11.01.2020 gelb markiert.
Für eine andere Startwoche musst Du in der bedingten Formatierung den Vergleichswert von 60 auf 61 ändern.

Keine Ahnung, ich weiß ja nicht was Du gemacht hast.

 

Hallo gpswanderer,

Danke dir. So habe ich es mir vorgestellt.
Eine Frage bleibt mir, wie und wo kann ich es genau mal nachlesen? Und Worauf bezieht sich der Vergleichswert 60 und 61?

 

Hallo,
das ist der Ausdruck für die bedingte Formatierung:
Code:

Betrachten wir diese mal teilweise:
Dieser Teil bestimmt die Wochentagszahl:
Code:

1=Mo, 2=Di ..... 6=Sa, 7=So
Diese 7 Zahlen werden durch den Parameter 2 bestimmt, der ist zwar optional, darf aber hier nicht entfallen.

Hier wird die Kalenderwoche bestimmt:
Code:

Mit Mod 2 wird der Rest bestimmt bei einer Teilung durch 2.
KW 20 Mod 2 = 0
KW 21 Mod 2 = 1

Diese beiden Zahlen werden verkettet (mit &) und mit ZInteger in eine Ganzzahl gewandelt, sodass man für den Sa bei einer geraden Woche 60 erhält und bei einer ungeraden Woche dann 61. Und das wird für die bedingte Formatierung genutzt.
Du kannst auch den Sonntag einfärben, mit der Zahl 7, dann ist in der bed. Formatierung 70 und 71 zu nutzen.

Schreibe die Schlüsselworte (in Englisch) in den Direktbereich des VBA Editors und drücke F1.
Die 4 Schlüsselworte/Funktionen:
WeekDay
DatePart
Mod
CInt

Ob es da nicht noch bessere Lösungen gibt weiß ich jetzt nicht, mir ist jedenfalls nichts anderes eingefallen.

 

\@klaus:
Warum so kompliziert und nicht einfach die Prüfung auf den Wochtag und dann die Prüfung auf eine gerade/ungerade KW logisch mit AND verknüpft?
Wäre lesbarer, auch nach längerer Zeit nachvollziehbar und die "Textverarbeitung" würde auch entfallen.

Zugegeben, nicht ganz so schick wie deine Lösung. *wink.gif*

Gruß Ulrich

 

\@Ulrich
Einfach kann jeder.*grins *biggrin.gif*

 

Hallo!

Zu beachten ist aber bei beiden obigen Formeln, dass jedes weitere Jahr bei der zweiten Kalenderwoche einzufärben beginnt, auch wenn mal im Vorjahr 53 Wochen waren.

Falls jedoch ab 11.1.2020 über die Jahre hinweg durchgängig alle zwei Wochen am Samstag der Dienstwechsel ansteht und somit eingefärbt werden soll, wäre folgende Formel möglich:
Code:

oder falls [Datum] auch eine Uhrzeit enthält:
Code:

 

Guten Morgen,
zuerst ein großes Danke! besonders an Klaus.
So ist es für mich verständlich geworden, wie die die Zahl "60" oder "61" zustande kommt. Könnte zum Beispiel den "Montag" mit "102 oder ggf. "11" so formatieren.
Interessant ist auch die andere Variante was zuletzt readonly geschrieben hat.
Wenn ich diesen Code beispielweise für einen wöchentlichen Wechsel den Dienstag nehmen würde, müsste es:[Datum] Mod 7=2 sein, oder?
Weitere Frage ist: wie ist es, wenn man die Feiertage entsprechend formatiert? Dann müsste es ganz in VBA geschehen, oder?

 

Jeden Dienstag wäre

[Datum] Mod 7=3

Aber bei wöchentlichem Wechsel, wo die Jahreswochenanzahl keine Rolle spielt, kannst du auch die leichter les- und wartbare Wochentagsfunktion verwenden (z. B. für Dienstag):

Wochentag([Datum];2)=2