Herbers Excel-Forum - das Archiv

Datum kleiner aktuell

Bild

Betrifft: Datum kleiner aktuell
von: Petersdorff

Geschrieben am: 31.03.2005 08:51:39
Hallo
ich hab eine spalte mit Mindesthaltbarkeitsdatum, dort möchte ich über ein Marko beim start, das alle Mindesthaltbarkeitsdaten die kleiner als das aktuelle Datum sind rot markiert werden.
Vielen Dank im Voraus
Bild

Betrifft: AW: Datum kleiner aktuell
von: Worti

Geschrieben am: 31.03.2005 09:04:26
Hallo,
packe folgenden Code in dein WorkbooksOpen-Ereignis:
Dim c As Range
For Each c In Range("A1:A100")
If IsDate(c) And c.Value < Date Then
c.Interior.ColorIndex = 3
End If
Next c

Eventuell muß du noch dein Sheet vor die Range schreiben. damit das richtige Arbeitsblatt genommen wird.
Gruß Worti
Bild

Betrifft: AW: Datum kleiner aktuell
von: Petersdorff
Geschrieben am: 31.03.2005 09:48:38
Danke es funktioniert auch, ich habe es im makro eingetragen, wo kann ich das WorkbooksOpen-Ereignis finden? Dann hab ich noch einen frage wie kann ich diese Spalte dann auch bei start automatisch Sortieren lassen von a-z.
Vielen dank
Grüße Andreas
Bild

Betrifft: AW: Datum kleiner aktuell
von: Worti

Geschrieben am: 31.03.2005 10:13:59
Hallo Andreas,
im Projekt-Explorer ein Doppelklick auf DieseArbeitsmappe und dann aus dem linken PullDown Workbook auswählen. Dann erscheint normalerweise schon der WorkbookOpen-Rahmen-Code. Wenn nicht, wähle noch aus dem rechten PullDown Open aus.
Sortierung: Ergänze den Code um die Zeile:
Range("A1:A100").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
Gruß Worti
Bild

Betrifft: AW: Datum kleiner aktuell
von: c0bRa
Geschrieben am: 31.03.2005 09:50:29
hallo...
wieso code?
spalte markieren, bedingte formatierung:

Rückmeldung nicht vergessen...
c0bRa
 Bild
Excel-Beispiele zum Thema "Datum kleiner aktuell"
Aktuellen Dateipfad aktualisieren Arbeitsmappe mit dem Namen des aktuellen Datums öffnen
Addition bis zum aktuellen Datum Aktueller Arbeitsblattname in Formel
Zur Zelle mit aktuellem Datum scrollen Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen
Bei Eintrag in Spalte A aktuelle Zeile kopieren Über Schaltfläche neues Blatt mit aktuellem Datum einfügen
Aktuelle Geburtstage beim Öffnen der Arbeitsmappe anzeigen Daten der aktuellen Zeile im Kontextmenü anzeigen