Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeile markieren bei bestimmtem Datum

Forumthread: Zeile markieren bei bestimmtem Datum

Zeile markieren bei bestimmtem Datum
02.10.2002 12:14:48
Jörg
Hallo zusammen,

ich habe eine Tablle mit mehreren Spalten. In einer dieser Spalten stehen Enddaten bezogen auf eine bestimmte Leistung. Ich möchte gerne folgendes erreichen: alle Datumsangaben in dieser Spalte werden geprüft auf "kleiner eines bestimmten Datums" und wenn das zutrifft soll die ganze Zeile, in der das Datum steht, farbig markiert werden, am liebsten nur soweit, wie Spalten in der Tabelle gefüllt sind (in meinem Falle bis zur Spalte K).
Wer kann helfen?

Gruß,

Jörg

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zeile markieren bei bestimmtem Datum
02.10.2002 12:19:55
andreas e
markiere die zeilen und dann über menü bedingte formatierung- hier von wert auf formel ist

gruß
andreas e

Re: Zeile markieren bei bestimmtem Datum
02.10.2002 12:28:00
Jörg
Entschuldigung, das habe ich vergessen: ich suche nach einer VBA-Lösung! Ich möchte also demnächst auf ein Knöpfchen drücken können und alle Zeilen, in denen ein Datum kleiner als das von mir angegebene ist, sollen farbig markiert werden.

Jörg

Anzeige
Re: Zeile markieren bei bestimmtem Datum
02.10.2002 13:11:11
Udo RiHü
Hallo,
Das sollte dir die entsprechenden Zeilen rot färben (ungetestet):

sub Markieren
Datum=inputbox("Datum?")
If Datum="" then exit sub
Datum=datevalue(Datum)
Z=2
Do while not isempty(cells(z,1)
if cells(z,1)< datum then
Range(cells(z,1),cells(z,11)).interior.colorindex=3
end if
z=z+1
loop
end Sub

Gruss Udo

Anzeige
Re: Zeile markieren bei bestimmtem Datum
02.10.2002 13:55:36
Jörg
Yo, vielen Dank. Das tut´s soweit. Wie müsste ich denn den Code erweitern, damit leere Zellen, die auf das Datum geprüft werden, einfach übersprungen werden. Kann ich den Code so gestalten, das aus der Anzahl der Datensätze in der Spalte A die Zeilenanzahl erfasst und eben alle diese Zeilen auf das Datum untersucht werden? Es kann nämlich sein, das z.B. in A102 ein Name steht, dazu aber keine Angabe des Enddatums in der Zeile 102 verfügbar ist. Dann soll die Prozedur aber weitergehen. Umgekehrt ist natürlich Quatsch (ein Enddatum zu keinem Produkt oder Kunden).

Vielen Dank im voraus,

Jörg

Anzeige
Re: Zeile markieren bei bestimmtem Datum
02.10.2002 17:17:07
Udo RiHü
Hallo,
du musst nur die Zeile
do while not isempty(cells(z,1))
so anpassen, dass eine Spalte (hier 1=A) geprüft wird, die immer gefüllt ist.
Oder, wenn in A immer ein Name steht und das Datum in B, dann z.B. so:

sub Markieren()
letzteZeile=cells(65536,1).end(xlup).row
for Z=2 to letzteZeile
if cells(z,2)< Datum then
Range(cells(z,1),cells(z,11)).interior.colorindex=3
end if
next z
end sub

Gruss Udo

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Zeile markieren bei bestimmtem Datum


Schritt-für-Schritt-Anleitung

Um eine ganze Zeile in Excel farbig zu markieren, wenn das Datum in einer bestimmten Spalte kleiner als ein festgelegtes Datum ist, kannst Du die folgende VBA-Lösung verwenden. Diese Methode ist besonders nützlich, wenn Du das aktuelle Datum in Excel hervorheben möchtest.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code ein:

    Sub Markieren()
       Dim Datum As Variant
       Datum = InputBox("Datum?")
       If Datum = "" Then Exit Sub
       Datum = DateValue(Datum)
       Dim letzteZeile As Long
       letzteZeile = Cells(65536, 1).End(xlUp).Row
       Dim z As Long
    
       For z = 2 To letzteZeile
           If Not IsEmpty(Cells(z, 2)) Then
               If Cells(z, 2) < Datum Then
                   Range(Cells(z, 1), Cells(z, 11)).Interior.ColorIndex = 3
               End If
           End If
       Next z
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus, um die Zeilen zu markieren.

Mit diesem Code wird die gesamte Zeile bis zur Spalte K farbig markiert, wenn das Datum in der Spalte B kleiner ist als das eingegebene Datum.


Häufige Fehler und Lösungen

  • Fehler: Das Makro wird nicht ausgeführt.

    • Lösung: Stelle sicher, dass das Makro in einer Datei gespeichert ist, die Makros unterstützt (.xlsm).
  • Fehler: Keine Zeilen werden markiert.

    • Lösung: Überprüfe, ob die Zellen in der Datums-Spalte tatsächlich Datumswerte enthalten und nicht als Text formatiert sind.
  • Fehler: Falsches Datum wird markiert.

    • Lösung: Achte darauf, dass das eingegebene Datum im richtigen Format vorliegt (z.B. TT.MM.JJJJ).

Alternative Methoden

Wenn Du keine VBA-Lösungen verwenden möchtest, kannst Du auch die bedingte Formatierung nutzen:

  1. Markiere die gewünschten Zeilen.

  2. Gehe zu Start > Bedingte Formatierung > Neue Regel.

  3. Wähle „Formel zur Ermittlung der zu formatierenden Zellen verwenden“.

  4. Gib folgende Formel ein:

    =UND($B1<HEUTE(), $B1<>"")
  5. Wähle das gewünschte Format aus und klicke auf OK.

Diese Methode ist ideal, um das aktuelle Datum in Excel hervorzuheben.


Praktische Beispiele

  • Beispiel 1: Um das aktuelle Datum in Excel hervorzuheben, kannst Du die oben genannte bedingte Formatierung verwenden. Diese wird die Zeilen farbig markieren, wenn das Datum in Spalte B kleiner als heute ist.

  • Beispiel 2: Wenn Du eine ganze Spalte mit dem aktuellen Datum markieren möchtest, kannst Du in der bedingten Formatierung die Spalte direkt auswählen und die Formel anpassen.


Tipps für Profis

  • Verwende die Funktion TODAY() in Deinen Formeln, um dynamisch mit dem aktuellen Datum zu arbeiten.
  • Stelle sicher, dass Deine Datumsformate einheitlich sind, um unerwartete Ergebnisse zu vermeiden.
  • Du kannst die Farbe der markierten Zeilen leicht anpassen, indem Du ColorIndex im VBA-Code änderst.

FAQ: Häufige Fragen

1. Frage Kann ich die bedingte Formatierung auch für mehrere Spalten anwenden?

Antwort: Ja, Du kannst die Formel in der bedingten Formatierung entsprechend anpassen, um mehrere Spalten gleichzeitig zu formatieren.

2. Frage Wie kann ich das aktuelle Datum in Excel hervorheben, wenn ich keine VBA verwenden möchte?

Antwort: Du kannst die bedingte Formatierung nutzen, um das aktuelle Datum in einer bestimmten Spalte hervorzuheben, indem Du die Regel mit der Formel =HEUTE() implementierst.

Beliebteste Forumthreads (12 Monate)

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