Office: Spalte durchsuchen und bedingte Formatierung

Hallo,

ich hoffe es kann mir nochmal jemand helfen. Ich möchte eine Spalte durchsuchen und das darin stehende Datum mit dem heutigen Datum vergleichen und somit eine Frist zu ermitteln. Dabei soll die Zelle für den Fall, dass es weniger als 8 Wochen sind Gelb gefärbt werden und wenn weniger als 4 Wochen Rot.

Ich hatte es einfach erstmal für eine bestimmte Zeile gestestet, ob das Berechnen an sich und die bedingte Formatierung funktionieren. Klappte alls Prima, doch nun möchte ich dieses auf die gesammte Spalte von Zeile 2 (wegen Überschrift) bis letzte Zeile anwenden, wobei leere Zellen nicht beachtet werden sollen. Aber irgendwie funktioniert das nicht ganz.

Hier ist mein Code, den ich probiert habe:

Code:

Sub Naechste_Wartung_Alarm()
    Dim DatHeute As Date
    Dim Rest As Integer
    Dim DatNaechste As Date
    Dim i_start As Integer
    Dim i_ende As Integer
    
    DatHeute = Date
    i_start = 2
    i_ende = Range("A65536").End(xlUp).Row
    
    For i = i_start To i = i_ende
        If Not Range(Cells(i, 10)).Text = "" Then
            DatNaechste = Range(Cells(i, 10)).Text
            Rest = DateDiff("w", Now, CDate(DatNaechste))
            If Rest >= "8" Then Cells(i, 10).Interior.ColorIndex = False
            If Rest < "8" And Rest >= "4" Then Cells(i, 10).Interior.ColorIndex = 6
            If Rest < "4" Then Cells(i, 10).Interior.ColorIndex = 3
        End If
    Next i
End Sub

Kann sein, dass der Code etwas umständlich ist, aber ich hab erst vor 2 Tagen angefangen mich mit dem Thema VBA zu beschäftigen. Das wichtigste ist erstmal, dass es überhaupt funktioniert. Optimieren kann man später noch.

Danke im Voraus

Gruß
Christian

 

Hallo!

Warum denn VBA?
Das lässt sich doch, wie du selbst schon sagtest, mit der Bedingten Formatierung erledigen:

1. Regel (rot): =A1+28>HEUTE()
2. Regel (gelb): =A1+56>HEUTE()

 

Das Ganz ist Teil einer größeren Datanbank, die ich versuche aufzubauen, die dann mehr oder weniger komplett über VBA, Userform etc gesteuert werden soll. Ich hab ein Datenformular erstellt, mit dem ich die Tabelle fülle und jeder neue Datensatz am Ende eingefügt wird. Da möchte ich nicht immer die bedingte Formatierung ergänzen, wenn ich neue Datensätze eingegeben habe.

Außerdem habe ich gerade erst angefangen mich mit VBA zu beschäftigen und möchte daher möglichst viele Funktionen darüber abdecken, um es einfach zu üben. Ansonsten würde mir dein Tip helfen :-)

 

Hallo!

Du kannst doch die BF gleich für die gesamte Spalte anwenden. Dann erübrigt sich das.

 

Ich weiß, aber wie gesagt ich möchte auch VBA üben, und da hilft es mir mehr, wenn ich solch Sachen programmiere.

Da mein Versuch aus irgendeinem Grund nicht funktioniert, würde es mir auch für später helfen, wenn ich wüsste, wo mein Fehler ist.

Selbst wenn ich jetzt das ganze über Bedingte Formatierung erledige, werde ich später wahrscheinlich, den Fehler in meinem obigen Code wiederholen. Keine Ahnung, ob es an der For/Next Schleife oder woanders liegt.

 

Hallo!

Mach mal alles Rote weg (ungetestet):

For i = i_start To i = i_ende
If Not Range(Cells(i, 10)).Text = "" Then
DatNaechste = Range(Cells(i, 10)).Text
Rest = DateDiff("w", Now, CDate(DatNaechste))
If Rest >= "8" Then Cells(i, 10).Interior.ColorIndex = False
If Rest < "8" And Rest >= "4" Then Cells(i, 10).Interior.ColorIndex = 6
If Rest < "4" Then Cells(i, 10).Interior.ColorIndex = 3
End If
Next i

 

Danke jetzt schein es zu klappen.

Es hat gereicht nur das i = zu entfernen und dann noch die Range-Angabe for den Cells.

Vielen Dank, jetzt bin ich wieder ein gutes Stück weiter. Zumindest bis zur nächsten Frage, die bestimmt demnächst auftauchen wird :mrgreen:

Ich hasse es halt einfach nur Bücher zu lesen, und mache lieber Learning-By-Doing. Das heißt ich hab mir überlegt, welche Funktionen ich machen möchte und danach dann im Internet gesucht. In verschiedenen Foren und Online-Tutorials habe ich dann verschiedene Routinen gefunden, die ich mir dann kopiere, versuche Zeile für Zeile nachzuvollziehen und dann an mein Problem anzupassen.