✔ datumsvergleich in excel

[pglw]

Hallöle zusammen,

habe in Excel folgendes nettes Problem:

-Auf dem Arbeitsblatt gibts 4 Spalten
-Spalte 1: ein Datumswert (Format tt.mm.jjjj)
-Spalte2: eine Zahl
-Spalte 3: wieder ein Datumswert(Format tt.mm.jjjj)
-Spalte 4:eine Zahl

Was ich nun gerne mit einem Makro erreichen würde ist folgendes:

Es soll eine Prüfung erfolgen: Es soll in einem ersten Schritt geprüft werden, ob für eine bestimmte Zeile der Tabelle in Spalte2 und Spalte 3 exakt die gleiche Zahl steht.
Wenn das der Fall ist, sollen die Datumswerte verglichen werden. Diese sollen aber nicht auf eine exakte Übereinstimmung geprüft werden, sondern auf eine Abweichung der Datumswerte von +/- 2 Tage.

Also: Wenn die Zahlen exakt passen und das Datum auf zwei Tage genau stimmt, soll diese Zeile der Tabelle in Fettschrift erscheinen.

Wie ist so etwas effizient zu erreichen?

MfG
PGLW

 

[duckdonald]

Hallo,

folgendes Makro sollte das machen was du willst:

Sub vergleichen()
  lz = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row    'letzte Zeile ermitteln
  For i = 2 To lz                       'von 2 bis letzten zeile beginne
    If Cells(i, 2) = Cells(i, 4) Then   'wenn Zahlen gleich
      If (Cells(i, 1) >= Cells(i, 3) - 2) And (Cells(i, 1) <= Cells(i, 3) + 2) Then 'und wenn Datum nicht mehr als 2 Tage abweicht
        Rows(i).Font.Bold = True        'dann betroffene Zeile fett
      End If
    End If
  Next i
End Sub

Gruß DuckDonald

 

[pglw]

Danke für Deine schnelle Antwort. Die Lösung funktioniert absolut perfekt.

Beste Grüsse

PGLW

 

[ulki]

Und jetzt noch den Status auf erledigt setzen!
Danke

ulki