Möchte folgenden Code so umschreiben, dass nur Datumseinträge der Form dd.mm.yy in einer beliebigen Zelle der Spalte H das Ereignis nach "Then" auslösen, klappt nicht so richtig. Bin für jeden Tipp dankbar.
Ciao, Eleni
Dim endup1 As Integer
Dim i As Integer
endup1 = ThisWorkbook.Sheets("080_2005").Range("H65536").End(xlUp).Row
For i = endup1 To 8 Step -1
If Range("H" & i).Value = "" Then
Range(("D" & i), ("F" & i)).Interior.ColorIndex = xlNone
End If
If Range("H" & i).Value "" Then
Range(("D" & i), ("F" & i)).Interior.ColorIndex = 15
Range("K" & i).FormulaR1C1 = "=RC[-3]-RC[-4]"
End If
Next i