Spalten einblenden
02.12.2004 16:02:03
Stefan
Habe ein einfaches Problem und doch ist es irgendwie vertrackt?
Ich möchte in einem Bereich z.B. Spalte A bis AX alle Spalten ausblenden, die nicht markiert sind. Umgekehrt ist es einfach, siehe unten (alle ausblenden die markiert sind)
Sub Ausblenden_Spalte()
ActiveSheet.Unprotect
Selection.EntireColumn.Hidden = True
'ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Also, alle die NICHT MARKIERT sind! Irgendwie invers - nur wie umsetzen?
Vielen lieben Dank für Eure Hinweise!
Gruss Stefan
Anzeige