Kurz gesagt ich möchte mithilfe einer For Schleife erreichen, dass Excel alle Zeilen von 10 bis 5000 in der Spalte 21 durchgeht und bei jedem Wert der die bedingte Formatierung nicht erfüllt (Bedingte Formatierung ist auf doppelte Werte gesetzt) soll VBA in der Nachbarzelle also Spalte 20 das Datum ausgeben.
Wie kann ich diese Bedingung der Bedingten Formatierung in die If Bedingung einbringen? Habe es mit ColorIndex, Interor Color etc probiert, aber die bedingte Formatierung scheint nicht als rote Farbe in Excel gespeichert zu sein, lediglich die Anzeige. Hat nämlich nicht funktioniert. Hier der Code:
For i = 10 To 5000
If Cells(i, 21).FormatConditions(1).Font.Color = Black Then
Cells(i, 20).Value = "=IF(RC[-15]=0,"""",""NAEL wurde hinzugefügt am: ""&TEXT(TODAY(),""TT.MM.JJJJ""))"
End If
Next i
LG Till
|