Löschen Zeilen
19.03.2016 13:25:41
chris58
Hallo !
Ich brauche Eure Hilfe. Ich habe einen Code, der mir sämtliche Zeilen von A9:A150 löscht. Nun brauch ich aber das selbte mit den Zeilen AJ9:AJ150.
Wie kann ich das einbauen, das da kein Kompilierungsfehler auftritt ?
ActiveSheet.Unprotect ("test2000")
Dim c As Range
For Each c In Range("A9:A150")
For Each c In Range("AJ9:AJ150")
If c.Value <> "" Then
c.EntireRow.Hidden = False
Else
c.EntireRow.Hidden = True
End If
Next c
ActiveSheet.Protect ("test2000")
End Sub