Makro Spalten ausblenden
24.03.2013 16:10:45
Peter
ich habe eine Kalkulationstabelle erstellt und möchte vor dem Ausdruck die Kalkulationsspalten ausblenden. Dazu habe ich mit dem Makrorekorder die einzelnen Schritte aufgezeichnet.
Das erstaunliche ist, bei der Ausführung "zu Fuß" werden genau die ausgewählten Spaten ausgeblendet. Führe ich aber das aufgezeichnete Makro aus, dann werden zusätzlich auch die Spalten A-Z ausgeblendet.
Hier habe ich das aufgezeichnete Makro kopiert.
Sub Kalkulationsspalten_ausblenden()
' Kalkulationsspalten_ausblenden Makro
Sheets("D (3)").Select
ActiveSheet.Unprotect
Range("Z:Z,AA1,AA:AA,AB:AB,AC:AC").Select
Range("AC1").Activate
Selection.EntireColumn.Hidden = True
Sheets("D (3)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("AN17").Select
End Sub
Vielen Dank für eure Hilfe:
Peter Müller