If-Befehl
22.08.2013 13:27:57
MBie
Ich brauche bitte schnell eure Hilfe:
Habe folgenden Code:
********************************************************
Option Explicit
Sub Filter_aufheben_ActiveSheet()
ActiveSheet.Unprotect Password:="123"
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub
********************************************************
Dieser Code soll einfach den gesamten Filter der Arbeitsmappe aufheben. Manchmal ist die Arbeitsmappe jedoch passwortgeschützt und manchmal nicht. Deshalb würde ich folgende Funktion benötigen:
- Falls das Blatt nicht mit einem Passwort versehen ist -> dann Filter aufheben und
- Falls das Blatt mit einem Passwort versehen ist -> dann Passwort aufheben, Filter aufheben und Passwort wieder anwenden (deswegen vorher das PW aufheben, da man sonst nicht den Filter aufheben kann)
Irgendwie bekomm ich diese "Doppelanweisung" nicht hin. Vielen Dank im Vorhinein!!
Liebe Grüße
MBie