eine Frage:
ich habe in Spalte A eine List mit u.a. doppelten und dreifachen Einträgen. kann ich per VBA diese Liste so reduzieren, daß jeder Eintrag nur einmal vorkommt?
gruß
Jörg
eine Frage:
ich habe in Spalte A eine List mit u.a. doppelten und dreifachen Einträgen. kann ich per VBA diese Liste so reduzieren, daß jeder Eintrag nur einmal vorkommt?
gruß
Jörg
Sub Doppelteloeschen()
Dim spalteSortierung As Integer
Dim anzahlZeilen As Integer
' Dim anzahlSpalten As Integer
Dim zeile As Integer
Dim row As Integer
' Die Funktion CInt wandelt einen String in eine Zahl um
Dim helpText As String
helpText = InputBox("Bitte Spalte angeben, in der Duplikaten gesucht werden sollen")
If helpText = "" Then
Exit Sub
ElseIf IsNumeric(helpText) Then
spalteSortierung = CInt(helpText)
anzahlZeilen = Range("A1").CurrentRegion.Rows.Count
' anzahlSpalten = Range("A1").CurrentRegion.Columns.Count
zeile = 1
While zeile < anzahlZeilen
If Cells(zeile, spalteSortierung).Value = Cells(zeile + 1, spalteSortierung).Value Then
Rows(zeile + 1).Select
Selection.Delete Shift:=xlUp
anzahlZeilen = anzahlZeilen - 1
Else
zeile = zeile + 1
End If
Wend
Else
Doppelteloeschen
End If
End Sub
am Ende des Makros, habe ich vergessen
Nicole