Benutzerdefinierte Ansichten
29.09.2008 10:56:48
Saskia
ich möchte meine benutzerdefinierten Ansichten für alle Tabellenblätter einer Arbeitsmappe gültig machen und sie mit einem Makro in die Symbolleiste einbauen. Alle Sheets haben denselben Aufbau, nur unterschiedliche Werte. Die Ansicht "Ressourcen" habe ich im Sheet1 erstellt und möchte, dass sie für jedes andere Sheet, in dem ich gerade arbeite, funktioniert (ohne Zurückspringen auf Sheet1). Bis jetzt weiß ich, dass ich irgendwie mit activesheet arbeiten muss, aber so richtig bekomme ich es nicht hin.
Sub Ressourcen()
ActiveSheet.Unprotect
ActiveWorkbook.CustomViews("Ressourcen").Show
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Vielen Dank im Voraus!