AW: doppelte Datum in einer Zeile
30.05.2022 08:37:58
Oberschlumpf
Hi Klaus,
oder hier eine VBA-Lösung, die in einem allgemeinen Modul eingefügt werden sollte (ungetestet)
Sub sbRedByEqual()
Dim lloRow As Long, lloCol As Long
'wenn im Original Blattname nicht "Tabelle1", dann anpassen
With Sheets("Tabelle1")
'wenn Startzeile nicht 1, dann "J1" anpassen; alte Farben in den Spalten "J:S" werden zurückgesetzt
.Range("J1:S" & .Cells(.Rows.Count, 3).End(xlUp).Row).Interior.ColorIndex = xlNone
'wenn Startzeile nicht =1, dann anpassen; geprüft wird bis letzte, benutzte Zeile in Spalte C
For lloRow = 1 To .Cells(.Rows.Count, 3).End(xlUp).Row
If .Range("C" & lloRow).Value "" Then
For lloCol = 10 To 19 Step 3
If IsDate(.Range("C" & lloRow).Value) Then
If .Range("C" & lloRow).Value = CDate(.Cells(lloRow, lloCol).Value) Then
.Cells(lloRow, lloCol).Interior.ColorIndex = 3
End If
Else
Exit For
End If
Next
End If
Next
End With
End Sub
Gestartet wird das Makro per Button oder Ereignis einfach mit dem Makronamen sbRedByEqual
Hilfts?
Ciao
Thorsten