Office: (Office 2016) Feiertag aus Tabelle - ganze Zeile markieren

Hallo,
ich habe ein weiteres Problem mit meiner Tabelle.
Auf dem Blatt "Kursplanung" steht in Spalte C alle drei Zeilen ein fortlaufendes Datum.
Auf einem anderen Blatt "Daten" gibt es eine Tabelle mit Feiertagen. Diese hat u.a. eine Spalte mit dem Namen des Feiertags und eine Spalte mit dem dazugehörigen Datum.

Nun möchte ich, dass im ersten Blatt "Kursplanung" die drei Zeilen neben (!) dem Datum bedingt formatiert werden und zwar bis Spalte Z. Jedes Datum gehört zu einem Block aus drei Zeilen, die in Spalte D auch noch verbunden sind.

Des weiteren wäre es schön, wenn der Name des Feiertags in der Spalte D ausgedruck wird.

Ich habe die angehängten Tabelle mal am 06.01. manuell gefärbt. So sollte es aussehen.
Habe mit Formeln aus dem Internet bisher nur hinbekommen, dass eine Zeile neben dem Datum gefärbt wird. Nicht aber die Zeilen darüber und darunter. Geschweige denn die Sache mit dem Namen ....

Vielen Dank im Vorraus !

 

Hola,

hat das einen bestimmten Grund dass pro Datum 3 Zeilen dort sind? Das macht es nur unnötig komplizierter.

Gruß,
steve1da

 

Hi @steve1da,

ich benötige halt in den Spalten E - Z jeweils 3 Zeilen für unterschiedliche Eintragungen. Das geht nicht für mich nicht praktikabel in einer großen Zelle.
Wenn Du meine Tabelle anschaust, steht in Zeile 1 eines jeweiligen Tages der Kurs, in Zeile 2 die Kursnummer und in Zeile 3 (die noch mal geteilt ist) die Raumnummer und welcher Kurstag vorliegt.

Sollte das mit einer Formel nicht möglich sein, habe ich sogar schön überlegt, dass 1x im Jahr halt händisch zu färben :-)
Grüße
Frander

 

Hallo,

die beiliegende Excel-Datei ist eine Modifikation deiner hochgeladenen Datei.
Dort habe ich im Arbeitsblatt "Kursplanung" zahlreiche Änderungen durchgeführt:

1) In Spalte B ist jetzt eine Formel für die Wochentagsanzeige zuständig =TEXT(C3;"TTT.")

2) In Spalte C ist für die Feiertagsanzeige die Formel =WENNNV(SVERWEIS(C3;Tabelle_Feiertage;3;0);"") enthalten. Dafür musste ich im Arbeitsblatt "Daten" die Tabelle "Tabelle_Feiertage" bei der Spaltenanordnung umstellen und einige Zeilen einfügen - die Formel wäre sonst unnötig um einiges komplizierter geworden.

3) 3 bedingte Formatierungen musste ich für die Feiertagszeileneinfärbung (gelb) einfügen.

4) Die Sa/So-Zeilenformatierung stellte ich auch auf 2 bedingte Formatierungen (hellbraun) um, weiters für die Spalten der avisierten Kurse 2 bedingte Formatierungen (hellblau)

5) Die Unmenge an bedingten Formaten, die für die Spalteneinfärbung (durch die Checkboxen in Zeile 1) enthalten waren, habe ich entfernt und durch eine einzige bedingte Formatierung pro Checkbox ersetzt.

6) Die 2 VBA-Makros zum Ansteuern der aktuellen Kalenderwoche habe ich durch eines ersetzt: Dieses wird jetzt von den 2 Callback-Routinen in den Codemodulen "Kursplanung" und "DieseArbeitsmappe" aufgerufen.

 

@Exl121150 Also ich weiß gar nicht, was ich sagen soll. Vielen vielen Dank für Mühe, die Du Dir mit der Tabelle gemacht hast. Wirkt jetzt alles etwas ... professioneller ;-)
Nur eine Winzigkeit ist komisch. Die "aktuelle KW" wird heute falsch angezeigt. Er markiert noch die der letzten Woche.

 

Ah und noch etwas: Die bedingte Formatierung zum Einfärben deer Zeilen bei Feiertagen beruht darauf, ob in der Spalte D etwas drin steht. Leider muss die Spalte D auch für allgemeine Infos herhalten, also nicht nur für Feiertage. Sobald ich da aber eine Info reinschreibe, wird alles in Feiertagsgelb markiert :-)
Kann man Deine bedingte Formatierung =($D2<>"") dagingehend umändern, dass stattdessen überprüft wird, ob der Wert einer aus der Tabelle_Feiertage ist?

 

Hallo,

in der beiliegenden Excel-Datei habe ich die Änderungen eingebaut.

1) Bezüglich "aktuelle KW": Hier hatte ich in der SUB "SprungZurAktKW()" nicht bedacht, dass es 2 verschiedene Funktionen "Weekday(..)" - in VBA und in Excel - gibt. Jetzt habe ich die zutreffende Funktion (aus Excel) genommen.

2) Das Kriterium für die bedingte Formatierung der Feiertagszeilen habe ich auf eine benutzerdef. Funktion =IstFeiertag($C2) umgestellt. Dadurch konnte ich 2 weitere bedingte Formatierungen, die ich bisher benötigte, weglassen.

 

Toll, alles klappt :-) :-) :-)
Dann kann ich mich ja jetzt ans Planen machen. Danke ! Danke ! Danke !
Habe erst jetzt gesehen, dass Du sogar daran gedacht hast die ersten 2 Feiertage fürs Jahr 2022 einzutragen und diese auf Grundlage des aktuellen Jahrs zu berechnen. Klasse !

Unter der Feiertagsliste auf dem Datenblatt sind noch einige Berechnungen zu sehen: "Ist ein Feiertag, 02.01.2021, FALSCH" etc. Ist das Grundlage für irgend etwas, oder kann das gelöscht werden?

Und seltsamerweise klappt das mit dem KW-Sprung zwar beim Drücken auf den Button, nicht aber beim Öffnen des Dokuments. Obwohl es der selbe Code ist. Liegt das an irgend welchen Exel-Einstellungen von mir?

LG
Frander

 

Hallo,

die Formeln unterhalb der Tabelle "Tabelle_Feiertage" im Arbeitsblatt "Daten" waren nur Testformeln von mir, die ich vergessen hatte zu löschen. Ich habe sie in der beiliegenden Datei entfernt.

Das geschilderte Problem, das den KW-Sprung betrifft, kann ich nicht nachvollziehen. Ich habe es nochmals ausführlich getestet und habe ein paar formale Änderungen durchgeführt, aber das ändert eigentlich an der grundlegenden Funktionalität der SUB SprungZurAktKW() nichts.

Die benutzerdef. Funktion zur bedingten Feiertagszeileneinfärbung IstFeiertag(rgDt As Range) As Boolean habe ich in ihrem Inneren etwas geändert, damit sie etwas flexibler wurde.

 

Hi,
komisch, beim ersten Starten der Datei kommt:


Beim zweiten Starten:


Beim Klicken auf "Debuggen":


Da bin ich so völlig überfragt ^^

 

Aber es ging ja nur noch um das automatische Hinspringen beim Dateistart. Alles Andere hat ja geklappt. Dann klicke ich eben meim Starten auf den entsprechenden Button. Die Sekunde habe ich dann auch :-))
Mach dir jetzt bitte keinen Stress deswegen. Ich bin mit dem Ergebnis hier super zufrieden !

 

Hallo,

das Problem ist mir klar: Es kommt darauf an, welches Arbeitsblatt du in Arbeit hattest, als du die Excel-Datei gespeichert hast.
Dieses Arbeitsblatt versucht Excel beim Laden/Öffnen der Datei wieder automatisch zu öffnen.
Wenn zB. dies das Arbeitsblatt "Kursplanung" war, so geht alles in Ordnung.
Wenn dies ein anderes Arbeitsblatt war (z.B. "Daten"), dann gibt es obigen Fehler. Excel versucht nämlich dann das Arbeitsblatt "Daten" zu aktivieren, obiges Makro aber will die Zelle Kursplanung!A75 aktivieren, obwohl das Arbeitsblatt "Kursplanung" nicht aktiviert ist, und schon gibt es ein Problem.
Das lässt sich leicht beseitigen, indem man im obigen Makro nach der Zeile "With Worksheets("Kursplanung") eine weitere Zeile einfügt:
.Activate

In der beiliegenden Datei habe ich das geändert.

In dieser Datei habe ich auch im Arbeitsblatt "Kursplanung" die Feiertagsformeln aus Spalte D entfernt und dafür im Arbeitsblatt "Daten" den Button "Feiertage in Kursplanung eintragen" eingefügt. Klickt man auf diesen, werden alle Feiertage der Tabelle "Tabelle_Feiertage", die nicht auf Samstag/Sonntag fallen, in diese Spalte D übertragen.

 

Danke @Exl121150 !
Ich habe mich zwar die letzten beiden Wochen berufsbedingt sehr intensiv mit Excel beschäftigen müssen, und ich kniee nieder vor der Mächtigkeit des Programms und vor den Personen, die das Biest beherrschen, aber so richtig verstehen werde ich es wohl nie ;-)
LG
Frander

 

HiHo

Ich stehe vor einem sehr ähnlichen Problem.
Ich möchte zur Vereinfachung eine Exel erstellen für die Arbeitszeiterfassung.
Dabei sollen Samstage und Sonntage entsprechend über die ganze Zeile Farblich markiert werden.
Das Funktioniert auch.
Das selbe möchte ich aber auch mit den Feiertagen machen.
Ich habe also in TABELLE2! die Feiertage generiert und Frage diese nun via SVERGLEICH entsprechend ab.
Das geht auch soweit.
ABER...
Das Programm markiert nur das einzelne Feld mit dem entsprechenden Datum und nicht die ganze Zeile.
Wie bekomme ich das Realisiert?
Im Anhang meine Exel.

 

Hola,
der Sverweis ist falsch.
=SVERWEIS($C6;Tabelle2!$B$19:$B$31;1;0)
Gruß,
steve1da