HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Entdecke rund 2 Millionen Excel-Lösungen im
Forumsarchiv
Forumbeitrag
Excel-Version des Fragestellers:
2022
Erfahrungslevel des Fragestellers:
Basiskenntnisse in Excel
Waldemar II
31.05.2026 10:48:41
AW: Ohne VBA erscheint...
Mensch Case, das scheint ja obergenial zu sein !!! Ich werde das nachher umsetzen (habe gerade anderes wichtiges) und rückmelden.

Denn: die vielen einzelnen Formatierungen haben die Datei ziemlich aufgebläht. Von wenigen KB auf 5 MB, da ich für jeden Monat auch ein extra Blatt erstellt habe - jetzt erstmal nur für ein halbes Jahr; wenn da mehrere Jahre zusammenkommen, kann es heftig dick werden. Die Speicherung als Xlsb hat zwar geholfen (von 5 auf 7 MB), aber eben nur so viel. Wenn dein Tip hilft, wäre das die Lösung. Denn die Datei soll auch weiterhin ihre Dienste leisten, wenn ich nicht mehr dort arbeite, wofür ich sie erstellt habe.

VG & bis später! 🙂
Als Antwort auf diesen Beitrag
Case
31.05.2026 10:04:04
Ohne VBA erscheint...
Moin, :-)

... mir die Bedingte Formatierung ein gangbarer Weg. ;-)

Wenn das innerhalb des 6er-Blocks immer nur für die 2er-Blöcke gelten soll, dann reichen für Tag und Nacht zwei Formeln für die BF: ;-)

Markiere für Tag: E2:G373 - dann BF einrichten - Bedingte Formatierung - Neue Regel - Formel zur Ermittlung der zu formatierenden Zellen verwenden. ;-)
Markiere für Nacht: K2:M373 - dann BF einrichten - Bedingte Formatierung - Neue Regel - Formel zur Ermittlung der zu formatierenden Zellen verwenden. ;-)

Tag: ;-)
=UND(E2<>"";ZÄHLENWENN(BEREICH.VERSCHIEBEN(E2;-REST(ZEILE()-2;2);SPALTE($E$1)-SPALTE();2;3);E2)>1)

Nacht: ;-)
=UND(K2<>"";ZÄHLENWENN(BEREICH.VERSCHIEBEN(K2;-REST(ZEILE()-2;2);SPALTE($K$1)-SPALTE();2;3);K2)>1)

Userbild

Servus
Case
Folgenachrichten
Antwort auf Beitrag erstellen
Bitte einen Anwendernamen ohne @ eingeben.
Bitte das Passwort eingeben.
Bitte eine gültige E-Mail-Adresse eingeben.
Bitte einen Betreff eingeben.
Weitere Optionen
Aktivieren, wenn die Frage/der Beitrag noch nicht beantwortet wurde und unter Listen > Offene Threads erscheinen soll.
Beispieldatei hochladen

Bitte einen Nachrichtentext eingeben.