Makro bringt Excel zum Absturz
Jenny
ich habe folgendes Makro erstellt, dass manchmal leider mein Excel zum Absturz bringt. :-(
Ich vermute, dass liegt daran, dass hier einige Schritte enthalten sind, die manchmal schon vor dem Start des Makros manuell ausgeführt wurden.
Könnt Ihr mir sagen, wie ich hier eine Wenn-Dann-Prüfung einbinde, damit die Passwort-Abfrage und das Einblenden der Zeile nur dann geschehen, wenn dies noch nicht passiert ist ?
Sub Reset()
With ActiveWorkbook.Worksheets(2)
ActiveSheet.Unprotect "XXX"
If ActiveSheet.Pictures.Count > 0 Then ActiveSheet.Pictures(1).Delete
Rows(6).Hidden = True
Range("E3").FormulaR1C1 = "all"
Range("E2").ClearContents
Range("L3").ClearContents
Selection.AutoFilter Field:=2, _
Criteria1:=Range("N2")
Selection.AutoFilter Field:=1, _
Criteria1:=Range("M2")
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="XXX"
Range("E2").Select
End With
End Sub
LG und vielen Dank Euch im Voraus, Jenny