Macro abändern
08.09.2004 08:11:16
SS
Ich habe ein Macro (siehe unten) welches nur in der ersten Spalte funktioniert. Es löscht mir doppelte Datensätze in der ersten Spalte. Was muss ich daran ändern damit es in anderen Spalten auch funktioniert wenn beim Macroaufruf sich gerade dort der Coursor befindet?
Und kann man das Macro so erweitern, dass der Cursor sich hinterher unterhalb der letzten beschriebenen Zelle positioniert (in der Spalte)?
Vielen Dank für die Hilfe
Sub DblFind()
' Makro1 Makro
' Makro am 24.07.2004 von Customer aufgezeichnet
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(iRow, 1)) > 1 Then
Rows(iRow).Delete
End If
Next iRow
End Sub