Als Antwort auf diesen Beitrag
Hallo
mit VBA sollte es so gehen, ohne zu sortieren!
Wie lange der Code bei 370tsd läuft kann ich nicht sagen?
Es sei denn du benutzt 2 Zellen um die Zeiten zu notieren, z.B. F1,F2
mfg Piet
Sub Doppelte_löschen()
Dim lz As Long, j As Long, i As Long
[f1,f2] = Time 'Nur zur Zeitmessung!
lz = Cells(Rows.Count, 1).End(xlUp).Row
For j = lz To 2 Step -1
If LCase(Cells(j, 3)) = LCase(Cells(j - 1, 3)) Then
'1. html stehen lassen
If LCase(Cells(j, 3)) = "html" Then
Rows(j).Delete shift:=xlUp
ElseIf LCase(Cells(j, 3)) = "jpg" Then
'letzte jpg stehen lassen
For i = j - 1 To 2
Rows(i).Delete shift:=xlUp
If LCase(Cells(i - 1, 3)) <> "jpg" Then Exit For
Next i
End If
End If
Next j
[f2] = Time 'Nur zur Zeitmessung!
End Sub