Doppelte Einträge ab Zeile 30 löschen
26.04.2013 08:33:45
Andreas
Ich habe mir hier aus dem Archiv ein Makro rausgesucht, welches mir in meiner Datei
doppelte Einträge in Spalte A raussucht und die kompl. Zeile dann löscht.
Das tut es auch. das Makro soll aber erst ab Zeile 30 aktiv werden.
Könnte eventuell jemand mir ei Tip geben, wie ich das Makro ändern muss, damit die Löschung erst ab zeile 30 los geht.
danke im voraus.
Andreas
Hier das Makro
Sub Doppelte_Einträge_löschen()
' Doppelte_Einträge_löschen Makro
''Abfragebox für sicheres übernehmen
Dim strQuest As String
strQuest = MsgBox(" doppelte Einträge löschen....sicher? ", vbYesNo + vbQuestion, " _
")
'Wenn die Abfrage mit "Nein" bestätigt wird,
'wird die Prozedur mit dem nächsten Befehl abgebrochen.
If strQuest = vbNo Then Exit Sub
Dim lngZeile As Long
For lngZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 1)), _
Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
If Application.CountIf(Columns(1), Cells(lngZeile, 1)) > 1 Then
Rows(lngZeile).Delete
lngZeile = lngZeile - 1
End If
Next lngZeile
End Sub