Forumbeitrag
Excel-Version des Fragestellers:
365 privat
Erfahrungslevel des Fragestellers:
Basiskenntnisse in VBA
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