ich habe in Zellen der Spalte D eine Auflistung von Dateien.
Wie kann ich per VBA die Zeilen löschen, wenn die Dateiendung in Spalte D shx, gz, rar, zip oder pc3 ist?
Vielen Dank im Voraus.
Viele Grüße,
Selma
Sub WegDamit()
Const tDeleteExt = ".shx.gz.rar.zip.pc3"
Dim lx As Long
For lx = ActiveSheet.Range("D" & ActiveSheet.Rows.Count).End(xlUp).Row To 1 Step -1
With ActiveSheet.Cells(lx, 4)
If InStr(tDeleteExt, Mid(.Value, InStr(.Value, ".") + 1)) > 0 Then
.EntireRow.Delete
End If
End With
Next lx
End Sub
GreetZ Renée
Sub WegDamit()
Const tDeleteExt = ".shx.gz.rar.zip.pc3"
Dim lx As Long
For lx = ActiveSheet.Range("D" & ActiveSheet.Rows.Count).End(xlUp).Row To 1 Step -1
With ActiveSheet.Cells(lx, 4)
If InStr(tDeleteExt, Mid(LCase(.Value), InStr(.Value, ".") + 1)) > 0 Then
.EntireRow.Delete
End If
End With
Next lx
End Sub
GreetZ Renée