ich möchte alle Strings, die gleich sind, in der Spalte 23 (W) rot färben, Funktioniert aber nicht.
Findet hier jemand den Fehler :
Dim lngRow As Long
lngRow = Cells.Find("*", , xlValues, 2, 1, 22, False, False).Row
Dim i As Integer, xx As Integer
Dim szCompare As String
For i = 10 To lngRow
szCompare = (Sheets("Import").Cells(i, 22).Value) & "*"
If WorksheetFunction.CountIf(Sheets("Import").Cells(10, 22).Resize(lngRow), szCompare) > 1 _
Then
Sheets("Import").Cells(i, 22).Font.ColorIndex = 3
End If
Next i
Danke
kai