Servus zusammen, ich hänge gerade an einem Problem ... Ich möchte die zwei Zeilen 26 und 27 jeweils von S26 bis Z27 vergleichen und immer wenn in der Zelle über der zweiten Spalte ein Inhalt ist, die Zelle unmittelbar danach leeren. In den Zellen sind auch immer dieselben Kreuzchen gesetzt, heißt Zeile 27 soll nur Kreuzchen dort haben, wo Zeile 26 keine hat, nie dürfen zwei Kreuzchen untereinander sein. Mein erstes Programm war so aufgestellt, aber es funktioniert leider nicht. Über Hilfe freue ich mich sehr.
VG
Herbert.
Sub DuplikateLoeschen()
Dim strSuche As String
Dim i As Long
Dim x As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "S").End(xlUp).Row To 4 Step -1 = 3
If Application.WorksheetFunction.CountIf(Range("S26:S27" & i), Cells(i, 14)) > 1 Then
strSuche = Cells(i, 1).Value
For x = ActiveSheet.Cells(Rows.Count, "S").End(xlUp).Row To 4 Step -1
If Cells(x, 19).Value = strSuche Then
If Application.WorksheetFunction.CountIf(Range("S26:S27" & x), Cells(x, 14)) > 1 _
Then
Cells(27, 14).ClearContents
End If
End If
Next x
End If
Next
End Sub