Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1004to1008
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
Inhaltsverzeichnis

Spaltenvergleich Datum

Spaltenvergleich Datum
03.09.2008 20:17:00
Markus
Hallo zusammen,
ich bin noch Laie auf dem Gebiet von VBA. Das tolle Forum hilft mir zwar fast immer weiter, bei meinem jetzigen Problem komme ich trotz langer Suche und zahlreicher ähnlicher Einträge leider nicht weiter. Ich hoffe, Ihr könnt mir helfen. Danke im Voraus!
Ich muss zwei große Spalten (A und B) mit Datumsangaben vergleichen. Ist das Datum der Spalte A größer, so soll die Zelle der Spalte A rotmarkiert werden.
Beispiel:
Spalte A --- Spalte B
01.05.2009 --- 01.06.2008
01.06.2008 --- 01.05.2008
01.07.2008 --- 01.10.2008
Erwartetes Ergebnis
Spalte A rot, da größer
Spalte A rot, da größer
keine Farbe , da kleiner
Die Lösung sollte mit einem Makro erfolgen. Die bedingte Formatierung kenne ich zwar, scheidet hier aber aus, da die rotmarkierten Zeilen später in ein anderes Tabellenblatt kopiert werden sollen. Dieses fertige Makro erkennt aber keine Farben aufgrund einer bedingten Formatierung.
Viele Grüße
Markus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
entweder mit mit Hilfsspalte ... oder ...
03.09.2008 20:42:30
Mathias
Hallo Markus

Du könntest doch in einer 3 Spalte (Spalte C) die Werte vergleichen
und z.B. in C1 eine EINS eintragen wenn A1>B1
so kannst Du auch die bedingte Formatierung verwenden um die größeren Werte ROT zu markieren.
Beim Kopieren der Zeilen beziehst Du Dich dann auf die Einträge in Spalte C
Steht dort eine EINS kopierst Du, steht keine Eins dann ignoriest Du.


ansonsten per VBA z.B. so:


Sub rot()
Dim X As Long
For X = 1 To 3 'anpassen (hier Zeile 1 bis 3)
If Cells(X, 1) > Cells(X, 2) Then Cells(X, 1).Interior.ColorIndex = 3
Next
End Sub


oder so:


Sub rot()
Dim X As Long
Application.ScreenUpdating = False
For X = 1 To 3 'anpassen
Cells(X, 1).Interior.ColorIndex = xlNone 'Zelle erst auf farblos setzen
If Cells(X, 1) > Cells(X, 2) Then Cells(X, 1).Interior.ColorIndex = 3
Next
Application.ScreenUpdating = True
End Sub


evtl. noch abfragen ob wirklich ein datum in den Zellen steht.
Gruß Matthias

Anzeige
AW: Spaltenvergleich Datum
03.09.2008 21:16:00
Markus
vielen dank!

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige