Bereich als Namen definiert und dann ausblenden
Ringlstetter
ich habe in einer Arbeitsmappe sehr viele Arbeisblätter und möchte bei ca. 70 davon einen bestimmten Spaltenbereich ausblenden. Zuerst habe ich das mit einer Array Formel versucht aber das hat iwie immer nur bei dem ersten Blatt des Arrays funktioniert.
Sub LZVerst()
' LZVerst Makro
Sheets(Array("Fischer", "Rathje", "Kock", "Szewczyk", "Voss", "Böge", "FreierHelmut", _
"Schnoor", "Lubanski", "Horree", "Lütt", "Giljung", "Krüger", "Hinrichsen", "Kinne", _
"Jensen", "Michalewski", "Dunker", "Stöckel", "Mumm", "Altenburg Rolf", "Lindemann", _
"Bartsch", "Kühl", "Kursel")).Select
Sheets("Fischer").Activate
Sheets(Array("BernhardtLeo", "Kath", "Kummerfeldt", "Holst", "Altenburg Andreas", _
"Groth", "Ramm", "Hammer", "Seider", "Latzel", "Maschmann", "Bernhard Knut", "Kramer", _
_
"Biernacki", "Gloyer", "Bergagnin", "Wollenberg", "Johannsen", "Grahlmann", _
"Stojanovic", "Farkas", "Markowsky", "FreierThomas", "Böckenhauer", "Grothkopp")). _
Select Replace:=False
Sheets(Array("Wegner", "Krause", "Schlünzen", "SpotaValerie", "Fröck", "Kuhn", _
"Meyer", "Neinstell", "Stahlschmidt", "Zabel", "Wulff", "Staben", "Völkel", "Greve", _
"Vogel", "Lang", "Kamp", "Grube", "Rütz", "Fuhrmann", "Mauer", "Losch", "Weiss", _
"Peters", "Stenner")).Select Replace:=False
Sheets(Array("Willomeit", "Leer", "Freimark")).Select Replace:=False
Columns("BJ:CE").Select
Selection.EntireColumn.Hidden = True
End Sub
Allerdings lacht vba mich aus, wenn ich jetzt versuche mit
Range("MONATSABRECHNUNG").Select
Selection.EntireColumn.Hidden = True
die Spalten auszublenden..was ist falsch? ;)
Gruß
Kai