Zellen doppelt
29.04.2008 14:18:00
Detlef
ich habe ein Code zusammengestrickt der alle doppelten und zusammenhängenden Zellen durch leere ersetzt.
Ich möchte dies aber nur auf Spalte Z begrenzen. Das nur in Spalte Z doppelte Einträge durch leere ersetzt werden.
Gruß Detlef
Sub DoppelteLoeschen()
Dim iRow As Integer, iCol As Integer
For iRow = Range("A1").CurrentRegion.Rows.Count To 2 Step -1
For iCol = 1 To Range("A1").CurrentRegion.Columns.Count
If Cells(iRow, iCol) = Cells(iRow - 1, iCol) Then
Cells(iRow, iCol).ClearContents
End If
Next iCol
Next iRow
End Sub