ich möchte alle Zeilen im Bereich 4 bis 1000 löschen, die keine URL enthalten.
Da es über 300 URL sind, gibt das mit dem Recorder einen riesigen Code.
Geht das auch einfacher?
Vielen Dank und liebe Grüße
Gisela
Sub ZeilenOhneHyperLinkLöschen()
Dim i As Long
For i = 1000 To 4 Step -1
If Rows(i).Hyperlinks.Count = 0 Then Rows(i).Delete
Next
End Sub
Gruß, Daniel