ein-ausblenden Code
02.03.2016 20:09:48
Guesa
Habe hier einen Code zum ein- und ausblenden von Spalten gefunden. Den für die Zeilen habe ich mir dann zurecht gebastelt und läuft auch alles. Meine Frage, kann man den zumindest für die Zeilen kürzer schreiben, wenn ja wie?, dann bräuchte ich mir die lange Zahl der Zeilenanzahl nicht zu merken :-). Außerdem ist mir aufgefallen das an meinem Rechner (2007) der restliche Hintergrund die Farben von Windows zeigt, der Arbeitsrechner (2010) hingegen zeigt die Farbe grau, könnte man dies auch beeinflussen oder eventuell sogar eine Grafik hinterlegen?
Sub ausblenden()
Sheets("Tabelle1").Range("D1:XFD1").EntireColumn.Hidden = True
Sheets("Tabelle1").Range("A11:A1048576").EntireRow.Hidden = True
End Sub
Gruß, Guesa