Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1316to1320
1316to1320
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung VBA

Forumthread: Bedingte Formatierung VBA

Bedingte Formatierung VBA
16.06.2013 18:09:26
Sonja

Hallo
Wer kann wieder Helfen?
In Spalte "P" wird ein Versanddatum eingetragen und je nach
Status werden die Zellen in der gleichen Zeile "E-L" farblich markiert.
Liegt das Datum welches eingetragen wird in der Vergangenheit, dann
werden die Zellen E-L farblich ROT markiert usw.
Das alles funktioniert wunderbar weil ja das Change Ereignis greift.
Nun möchte ich allerdings erreichen das sich die Farbe schon beim öffnen der Datei
farblich anpasst. Immer vom Datum "HEUTE".
Hier meine Musterdatei
https://www.herber.de/bbs/user/85854.zip
Vielen Dank für EURE Hilfe
Gruß Sonja

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung VBA
16.06.2013 18:19:25
Hajo_Zi
Hallo Sonja,
warum bei Open. Die Farbe wird doch schon geändert bei Eingabe, die Farbe wird nichrt geändert in der geschlossenen Datei.

AW: Bedingte Formatierung VBA
16.06.2013 18:37:09
Hajo_Zi
Hallo Sonja,
ein bereinigter Code. 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 16 Then
Dim lngAktiveZeile  As Long
lngAktiveZeile = Target.Row
'MsgBox Cells(lngAktiveZeile, Spalte16)
If Target
Gruß Hajo

Anzeige
AW: Bedingte Formatierung VBA
16.06.2013 18:55:17
Sonja
Hallo Hajo
Richtig die Farbe wird bereits bei der Eingabe geändert.
Vier Tage vor HEUTE = Gelb
Zwei Tage vor Heute = Orange
Heute = Gelbgrün
Dies bedeutet, wenn ich heute das Datum von morgen eintage, dann wird die Farbe Orange angezeigt,
jetzt soll aber morgen beim öffnen der Datei die Orange Farbe zu Gelbgrün wechseln. Weil ja das Versanddatum dann HEUTE ist.
Gruß Sonja

Anzeige
AW: Bedingte Formatierung VBA
16.06.2013 19:16:45
Hajo_Zi
Hallo Sonja,
Option Explicit
Private Sub Workbook_Open()
Dim LoLetzte As Long
Dim Loi As Long
With Worksheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 16)), _
.Cells(.Rows.Count, 16).End(xlUp).Row, .Rows.Count)
For Loi = 2 To LoLetzte
If .Cells(Loi, 16)
Gruß Hajo

Anzeige
AW: Punkte sind wichtig
16.06.2013 19:50:04
Hajo_Zi
Hallo sonja, 
Option Explicit
Private Sub Workbook_Open()
Dim LoLetzte As Long
Dim Loi As Long
With Worksheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 16)), _
.Cells(.Rows.Count, 16).End(xlUp).Row, .Rows.Count)
For Loi = 2 To LoLetzte
If .Cells(Loi, 16)
Gruß Hajo

Anzeige
AW: Reihenfolge
16.06.2013 20:02:24
Hajo_Zi
Hallo Sonja, 
Option Explicit
Private Sub Workbook_Open()
Dim LoLetzte As Long
Dim Loi As Long
With Worksheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 16)), _
.Cells(.Rows.Count, 16).End(xlUp).Row, .Rows.Count)
For Loi = 2 To LoLetzte
If .Cells(Loi, 16) = "" Then    'Wenn Datum in Zelle  , dann keine Farbe
.Range(.Cells(Loi, 5), .Cells(Loi, 12)).Interior.ColorIndex = xlNone
ElseIf .Cells(Loi, 16)
Gruß Hajo

Anzeige
AW: Reihenfolge
17.06.2013 08:52:02
Sonja
Hallo Hajo
Danke, in meiner Musterdatei funktioniert es jetzt.
Allerdings in meiner richtigen Arbeitsmappe bekomme ich es noch nicht hin.
Ich denke es liegt am With Worksheets("Tabelle1")
In meiner original Datei habe ich aus dem With Worksheets("Tabelle1") umgeändert in With Worksheets("Tabelle25")
Jetzt erhalte ich einen Laufzeitfehler "9" Index auserhalb des gültigen Bereichs.
Was kann müsste ich entsprechend ändern?
Gruß Sonja

Anzeige
AW: Reihenfolge
17.06.2013 09:24:57
Hajo_Zi
Hallo Sonja,
du musst den Namen eintragen der im Register steht.
Das Change Ereignis ist anlog anzupassen, Reihenfolge der If.

AW: Reihenfolge, Danke Danke
17.06.2013 09:53:51
Sonja
Hallo Hajo
Oh das ging ja schnell.
Prima genau so funktioniert es jetzt.
Wie immer tausend Küsse und einen sonnigen Tag wünscht Dir
Sonja
Anzeige
;

Forumthreads zu verwandten Themen

bedingte formatierung berechnen lassen unter vba
morbiuz

Hallo,
ich habe eine Spalte A auf der 2 verschiedene bedingte Formatierungen gesetzt sind (rot, grün) für die Scriftfarbe
leider kann ich die Werte nicht über meine Funktion zusammenrechnen lassen:
Sub mtest() Dim zelle As Range Dim bereich As Range Dim a As Integer Set bereich =...
20.08.2008 03:03:00
Thread-ID: 1003056
2 Beiträge
Anzeige
Bedingte Formatierung per VBA prüfen?
onkelbobby

Hallo,
in einer Tabelle in Spalte N und O werden zwei Datumswerte angegeben. Mit der Formel
=UND(HEUTE()-N1größer=0;O1-HEUTE()größer=0) (Anm. kann leider keine größer-Zeichen hier angeben)
habe ich als bedingte Fomatierung festgelegt, dass diejenigen Werte, bei denen das heutige Dat...
29.08.2008 12:45:10
Thread-ID: 1005805
6 Beiträge
Bedingte formatierung mit Wenn
kdl

Hallo, ich freue mich dieses Forum gefunden zu haben. An Hand eurer Beiträge konnte ich schon einiges dazulernen. In der letzten Zeit habe ich mich damit beschäftigt mit Excel zu zeichnen, über bedingte Formatierung (Rahmen zu weisen) erstelle ich die Draufsicht einer Arbeitsplatte.
Meine e...
12.09.2008 14:06:00
Thread-ID: 1009364
2 Beiträge
Bedingte Formatierung mit Bereich
Burghard

Hallo,
ich habe einen Fotokalender gebastelt (für jeden Monat ein Blatt).
Das Jahr läßt sich im 1. Tabellenblatt in Zelle A1 einstellen. Alle anderen Tabellenblätter ändern sich entsprechend.
In den Monaten habe ich verschiedene Bereiche mit einer bedingten Formatierung versehen, um...
05.10.2008 16:09:12
Thread-ID: 1014259
6 Beiträge
Zellen formatierung mit Formeln
Peter

Hallo
habe eine Formatierung in einer Zelle, in der er die 0 als 00 anzeigen soll.
Das macht er so lange ich keine Formel drin habe.
Sobald die Formel drin ist., zeigt er mir nur eine 0 (Null an.
die Formel ist
RECHTS(SUMMEWENN(C14:C40;">0";G14:G40);2)
Wie bekomme ic...
08.11.2008 18:25:00
Thread-ID: 1022970
7 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
Formatierung mit in die Formel einarbeiten
Jochen

Hallo,
habe folgende Formel:
=WENN(A8"";VERKETTEN(SVERWEIS(A8;B2:E5;2;FALSCH);ZEICHEN(10);SVERWEIS(A8;B2:E5;3;FALSCH);" / "; SVERWEIS(A8;B2:E5;4;FALSCH));"") .
Diese Formel verkettet "Name" - "Vorname" - "/" und eine weitere "Bezeichnung" miteinander.
Die Zelle ist Fett und Schr...
12.01.2009 10:57:00
Thread-ID: 1038800
4 Beiträge
Anzeige
Bedingte Formatierung mit Formeln beschränkt?
Vera

Hallo. Stoße gerade auf ein seltsames Phänomen:
wenn ich eine bedingte Formatierung auf ein Formelergebnis lege, klappt das gut. Das Formelergebnis habe ich dann runterkopiert - auch dann ist die bedingte Formatierung noch ok. Aber ab einer gewissen Anzahl Zeilen klappts dann nicht mehr.
16.01.2009 10:39:21
Thread-ID: 1040464
9 Beiträge
Anzeige
Bedingte Formatierung mit VBA-Modul
Fuhrer

Hallo zusammen
Ich will mit einem VBA-Modul einen bestimmten Bereich nach definierten Kriterien einfärben.
Das Modul wird später einem Comnand-Button Zugeordent (dies ist für mich kein Problem).
Nun konnte ich im Internet ein entprechendes Makro finden. Jedoch ist dieses Makro nur f...
19.01.2009 18:03:57
Thread-ID: 1041611
6 Beiträge
bedingte Formatierung mit Datum
Andy

Guten Tag,
ich habe eine Frage.
Ich würde gerne die folgende Bedienung in einer bedingten Formatierung umsetzen.
wenn ein Datum in einer Zelle (A1) nach dem Datum in einer anderen Zelle (A2) ist und eine dritte Zelle (A3) leer ist, dann mache die Zelle (A1) rot.
geht das?
vi...
21.01.2009 16:33:00
Thread-ID: 1042306
3 Beiträge
Excel2007: bedingte Formatierung mit Forme
Thorsten

Hallo,
ich habe ein Problem mit bedingten Formatierungen, die auf Formeln basieren, im Excel 2007.
Ich habe in Exel XP bzw. 2002 Dateien mit bedingten Formatierungen auf Formelbasis erstellt und diese werden im Excel 2007 nicht mehr korrekt abgebildet.
Ich habe dazu eine Datei als...
27.01.2009 15:15:00
Thread-ID: 1044267
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige