Spalten mit Makro nach Vorgabe ein und ausblenden
09.04.2009 14:44:26
Christoph
will mit Hilfe eines Makros eine bestimmte Anzahl an Spalten ein- bzw. ausgeblendet haben. Habe selbiges mal für Zeilen selbst programmiert:
Sub Zeilenausblenden()
Rows("9:209").Hidden = True
Rows("9:" & (9 + Range("A4").Value)).Hidden = False
End Sub
Für Spalten klappt, das jetzt nicht wenn das eins zu eins überschreibe mit "Columns", da ich hier ja Buchstaben verwenden muss.
Der Ausblendebefehl ist ja klar, mache ich einfach
Sub Ausblenden()
Columns"G:AA".Hidden = True
End Sub
Aber wie bekomme ich es hin, dass nur die vorgebene Anzahl an Spalten wieder eingefügt wird?
Vielen Dank an alle!
Grüße
Christoph
Anzeige