ActiveWindow.DisplayHeadings = False
01.05.2007 13:04:56
Sonnenpeter
ich habe eine Arbeitsmppe mit 20 Tabellenblättern bei der ich wahlweise die Zeilen- und Spaltenköpfe ein- oder ausblenden möchte.
Hierzu der folgende VBA-Code
Sub SpaltenKöpfeZeigen()
For Each sh In Sheets
ActiveWindow.DisplayHeadings = True
Next sh
End Sub
Sub SpaltenKöpfeAusblenden()
For Each sh In Sheets
ActiveWindow.DisplayHeadings = False
Next sh
End Sub
Geht jedoch nicht :-( es werden lediglich die Zeilen- und Spaltenköpfe eines Arbeitsblattes ein- oder ausgeblendet.
Was muss ich tun, damit das bei allen 20 Tabellenblättern funktioniert?
Gruß Sonnenpeter