Hallo zusammen,
ich habe eine Tabelle, mit ca 3000 Zeilen und 10 Spalten. Meine Tabelle wird nun nach Spalte 8 sortiert, und ich möchte alle Einträge, die NICHT doppelt sind, löschen.
Dazu habe ich (ab der 2. Zeile ) eine einfache For-Schleife genommen. Mein Makro sieht so aus:
Sub Loeschen()
Dim x As Integer
Set T1 = Worksheets("insert Data")
For x = 8 To 8000
If T1.Cells(x, 8).Value <> T1.Cells(x - 1, 8).Value And T1.Cells(x, 8).Value <> T1.Cells(x + 1, 8).Value Then
Rows(x).Delete
End If
Next x
End Sub
Allerdings funktioniert dieses Makro nicht.
Die Einträge in Spalte 8 haben das Format XY123456.
Muss ich die Spalte 8 irgendwie formatieren, z.b. als Zahl, damit das so funktioniert?
Vielen Dank für eure Hilfe.
Viele Grüße Johannes
|