Excel Spalte Bedingte Formatierung per VBA
25.02.2014 20:28:36
MasterEytukan
folgendes Problem:
Ich habe eine Spalte A in der das Datum für den Eingetragenen Besucher Steht.
Mal Sind es 10 Besucher am Tag mal mehr... Jetzt möchte ich gerne, dass Wenn ein Neuer Tag beginnt das Datum per VBA Eine Rote Schrift und Fett Formatiert wird.
Ich muss Allerdings vermeiden, das die Formatierung geändert werden kann, deswegen per VBA. Wie definiere ich jetzt das er Nachschauen soll ob die Zelle die Formatiert wird größer ist als die zelle davor. Zum Beispiel: A3>A2 dann Anwenden Sonst nichts.
Mein Ansatz war dieser:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objCell As Range
For Each objCell In Target
If Not Intersect(objCell, Range("A:A")) Is Nothing Then
With objCell
Select Case .Value
Case >Case-1
.Font.Name = "Arial"
.Font.Size = 14
.Font.ColorIndex = 3
.Interior.ColorIndex = 2
End Select
End With
End If
Next
End Sub
Wie ich Bestimmte werte auslese ist mir nun Klar, aber wie ich die Bedingung Formuliere ist mir Unklar.
Danke schonmal im Vorraus für Eure Hilfe.