Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumswerte mit heute vergleichen und Markieren

Datumswerte mit heute vergleichen und Markieren
15.01.2005 01:54:56
Stefan
Hallo Cracks,
ich habe ein Problem mit einer Datumsfunktion.
Ich habe eine Tabelle mit Ereignissen, die zu jeweils einem bestimmten Datum (Zelle A1) stattgefunden haben. Ich möchte nun 4x jeweils 186 Tage später eine bestimmte Prozedur ausführen. Um das entsprechende Datum herauszufinden, habe ich folgende Formel verwendet: B1 =A1+186. Dies funktioniert auch. nun möchte ich, wenn ich die Tabelle öffne, dass alle Datumswerte, die vor dem heutigen datum liegen, rot markiert werden.
Wie kann ich das anstellen? Ich habe es schon mit bedingter Formatierung versucht, aber beim Einsatz von "HEUTE()&gtB1" kommt nur eine Fehlermeldung...
Bitte um Hilfe.
Danke, Stefan

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumswerte mit heute vergleichen und Markiere
15.01.2005 02:10:26
Fritz
Morgen,
ich hab es eben mal so gelöst.

Sub DatumVorHeuteRot()
Dim zelle As Range, Bereich As Range
Set Bereich = ActiveSheet.Range("a1:A500")
For Each zelle In Bereich
If zelle < Date Then zelle.Interior.ColorIndex = 3
Next zelle
End Sub

Grüsse, Fritz
AW: Datumswerte mit heute vergleichen und Markiere
15.01.2005 02:51:39
Stefan
Hallo und guten Morgen, Fritz,
"ich habe es eben mal so gelöst"...
Mööönsch, ich hätte alleine für die Zeile "If Zelle &lt Date Then Zelle.Interior.ColorIndex = 3" mindestens drei Tage gebraucht.
Wieso kann jemand das "eben mal so"?
nun habe ich nur noch ein Problem: Wo muß das hin? Ich habe den Code nach "Diese Arbeitsmappe" kopiert und es hat sich nix geändert. Liegt das vielleicht daran, dass ich den Bereich von A1:A500 in F3:I52 geändert habe?
Gruß und erst mal Danke!,
Stefan
Anzeige
AW: Datumswerte mit heute vergleichen und Markiere
15.01.2005 03:21:13
Fritz
Hallo Stefan.
im rechten Auswahlfeld in der vba-Umgebung Workbook_open anklicken. Dann den Code-Rumpf einfügen

Private Sub Workbook_open()
Dim zelle As Range, Bereich As Range
Set Bereich = ActiveSheet.Range("a1:A500")
For Each zelle In Bereich
If zelle < Date Then zelle.Interior.ColorIndex = 3
Next zelle
End sub

freut mich, wenn ich endlich auch mal helfen konnte. Ist das erste Mal :-))
Den Bereich kannst du benennen, wie Du möchtest, also z.B. auch A25:Y633. Dann wird nur in diesem Bereich gesucht. Es ist auch völlig schnuppe, ob die mDatumseinträge in Reihe oder durcheinander stehen. Was kleiner als heute ist, wird rot.
Grüße, Fritz
Anzeige
AW: Datumswerte mit heute vergleichen und Markiere
15.01.2005 03:35:34
Fritz
Hi,
mir ist noch was eingefallen. Du hattest davon gesprochen, dass Du es mit "bedingter Formatierung" versucht hast. Daraus schließe ich, dass sich die Datumswerte in den Zellen vielleicht ändern - also in dem rot gefärbten Bereich vielleicht Datumswerte > Heute eingetragen werden sollen oder könnten. Dann sollen die ja wieder weiß werden.
das ginge so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle As Range, Bereich As Range
Set Bereich = ActiveSheet.Range("A1:C500")
For Each zelle In Bereich
If zelle < Date Then
zelle.Interior.ColorIndex = 3
Else
zelle.Interior.ColorIndex = xlColorIndexNone
End If
Next zelle
End Sub

Gruss, Fritz
Anzeige
AW: Datumswerte mit heute vergleichen und Markiere
15.01.2005 09:39:49
Egon
Hallo Ihr beiden!
Darf ich mich da reinhängen?
Hab fast das gleiche Problemchen.
Ich möchte 10 Tage vor Terminende die Zellen auch rot machen, soll dann rot bleiben bis ein neuer Termin eingetragen wird, der dann natürlich länger als die 10 Tage in der Zukunft liegt.(Soll dann wieder weiss werden)
Danke im Voraus
Egon
AW: Datumswerte mit heute vergleichen und Markieren
PeterW
Hallo Stefan,
würde mich mal interessieren, was da für eine Fehlermeldung kommt. Hast du die Bedingung bei Formel ist eingegeben und mit einem Gleichheitszeichen begonnen?
Gruß
Peter
AW: Datumswerte mit heute vergleichen und Markiere
15.01.2005 13:40:18
Stefan
Hallo Fritz, Egon und Peter!
jetzt verstehe ich mal eben gar nix mehr. ich wollte für Peter einen Screenshot der Fehlermeldung anfertigen und stattdessen funktioniert die bedingte Formatierung auf einmal.
FRITZ:
Deine Version der Lösung funktioniert auch und ist mit sicherheit die elegantere! Danke für Deine Hilfe! Vielen Dank!
PETER & EGON:
Die bedingte Formatierung, die jetzt auf einmal funktioniert sieht folgendermaßen aus:
formel ist: =HEUTE()&gtF3
wobei hinzuzufügen ist, dass in meiner Tabelle im Bereich E3:E52 bereits durchgeführte Termine stehen; im Bereich F3:I3 habe ich mit "E3+186"... vier weitere Termine im Abstand von jeweils einem halben Jahr eingetragen und die bedingte Formatierung eben für F3 erstellt und dann über den ganzen Bereich F3:I52 aufgezogen.
Was mir halt jetzt noch fehlt ist, wie ich die Bedingte Formatierung wieder herausbekomme, wenn ich einen Termin durchgeführt habe.
Dies war's, ich verbleibe vorerst als halbwegs ratloser
Stefan.
Anzeige
AW: Datumswerte mit heute vergleichen und Markiere
PeterW
Hallo Stefan,
da Excel nicht wissen kann, wann du einen Termin durchgeführt hast kommen zwei Wege in Frage:
1. dokumentiere durch einen Eintrag in einer zusätzlichen Zelle die Erledigung und binde diese Zelle in die Bedingung ein: =UND(HEUTE()&gtF3;G3="") als Beispiel, wenn in G3 ein Eintrag bei Erledigung steht. Anbieten würde sich, in diese Zelle ein Datum zu schreiben, dann kannst du sogar nachvollziehen, wann die Erledigung stattgefunden hat.
2. Zelle markieren und die bedingte Formatierung löschen.
Gruß
Peter

300 Forumthreads zu ähnlichen Themen

Zelle mit heutigem Datum finden
Steffi

Hallo liebe Spezialisten,
hier im Forum hat man mir den unten stehenden Code gezeigt um im Bereich "F:F" die Zelle mit dem heutigen Datum zu finden. Das klappt soweit auch prima :-)
Wenn das Datum jedoch per Formel wie z.B. =HEUTE() erzeugt wurde, funktioniert der Code nicht.
Könnt...
05.09.2008 11:46:00
Thread-ID: 1007634
12 Beiträge
Anzeige
Vergleichen mit Funktion WENN
Uwe

Hallo liebe Forummitglieder,
ich habe ein Problem mit vergleichen von Zahlen.
Ich habe schon selbst probiert, aber das haut hinten und vorne nicht hin.
=WENN(ODER(B10=1;"100")WENN(B10=2;"200")WENN(B10=3;"300")WENN(B10=4;"400"))
Ich möchte wenn in B10 1 steht 100, bei 2 200, bei...
01.10.2008 08:25:00
Thread-ID: 1013514
9 Beiträge
Wenn Formel mit Spalte
Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
05.11.2008 16:30:00
Thread-ID: 1021984
6 Beiträge
Anzeige
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
Zeile mit aktuellem Datum auslesen
Horst

Hallo Excel-Gemeinde!
Wie kann ich bei untenstehendem VBA-Code angeben, dass von der B.xls die Spalte AA jener Zeile A ausgelesen wird, welche dem aktuellem Systemdatum entspricht (Spalte A enthält Datumswerte, Spalte AA Beträge).
Das müsste irgendwie mit "Application.Match(CLng(Date)"...
11.02.2009 14:23:00
Thread-ID: 1049595
17 Beiträge
Vergleich Datum in Zelle mit Datum heute
Schmidtler

Hallo,
habe mal wieder ein Problem:
Ich prüfe Datum bzw. Inhalt von Zelle V1 zu Datum bzw. Inhalt von Zelle V2 und gebe dann einen Wert in die Zelle unterhalb von V2 aus. Die Prüfung OK und ISSUE funktionieren. Jedoch hat mein Marko irgendein Problem mit dem Vergleich =Date. Kann mir ei...
27.02.2009 09:59:09
Thread-ID: 1054614
5 Beiträge
Datum mit Zahl vergleichen
Liese

Hallo,
in A1 steht z.b. 07.04.1990
in B1 steht 1990 (Zahlenformat Standard)
Wie kann ich jetzt die Jahreszahl von A1 mit
der Zahl von B1 vergleichen?
Grüße Anneliese
30.06.2009 12:42:42
Thread-ID: 1085329
5 Beiträge
Wenn-Formel mit und + oder
Anton

hallo,
ich brauche mal eure hilfe. ich möchte mit einer formel verschiedene ergebnisse miteinander vergleichen und dabei nur eine formel verwenden.
es soll geprüft werden ob A1+A2 = C1+C2+C3 und = E1 oder E2+E3
verständlich?
danke für eure hilfe im voraus
anton
04.08.2009 12:25:51
Thread-ID: 1093466
24 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
5
8
5
3
2
16
4
4
23
6
40
8
8
7
2
1
4
8
5
2
5
13
8
3