Warum meldet mir vba bei unten aufgeführtem code: Die select-methode des Range-Objektes konnte nicht ausgeführt werden. Laufzeitfehler:1004. Fehler tritt auf: 'bei zuerst sortieren...
Ich möchte doppelte datensätze eliminieren, aber ich habe auch im archiv nichts gefunden. das ist das ergebnis von basteln und kopieren aus dem archiven. leider klappt es nicht. kann mir einer helfen, bitte...
Sub DoppelteSätzeEliminieren()
Dim Spalte As String
Dim Tabelle As String
Spalte = InputBox("In Welcher Spalte" _
& Chr(13) & "doppelte Sätze elemenieren?" _
& Chr(13) & Chr(13) & "Buchstabe der Spalte eingeben!", _
"Doppelte Sätze Eliminieren")
If Spalte = "" Then Exit Sub
Tabelle = InputBox("In welcher Tabelle" _
& Chr(13) & "doppelte Sätze elemenieren?" _
& Chr(13) & Chr(13) & "Tabelle Namen eingeben!", _
"Doppelte Sätze Eliminieren")
If Spalte = "" Then Exit Sub
'Aktualisierung im Hintergrund
Application.ScreenUpdating = False
Sheets("Tabelle1").Activate
'zuerst sortieren
Columns("a:iv").Select
Selection.Sort Key1:=Range(Spalte & "1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
'jetzt doppelte Sätze rausschmeißen
Range(Spalte & "1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value _
Then ActiveCell.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub