Microsoft Excel

Herbers Excel/VBA-Archiv

Statt ActiveWindow alle Arbeitsblätter | Herbers Excel-Forum


Betrifft: Statt ActiveWindow alle Arbeitsblätter von: Rainer
Geschrieben am: 16.11.2009 10:50:27

Hallo,

habe hier https://www.herber.de/forum/archiv/452to456/t452486.htm#452491 die Einstellung für die Zeilen- und Spaltenüberschriften gefunden.

ActiveWindow.DisplayHeadings = False
Bin in VBA leider nicht bewandert.

Was muss anstelle von ActiveWindow stehen, damit die Zeilen- und Spaltenüberschrift in allen Arbeitsblättern der geöffneten Tabellen angesprochen wird?

Gruß Rainer

  

Betrifft: AW: Statt ActiveWindow alle Arbeitsblätter von: mumpel
Geschrieben am: 16.11.2009 11:11:43

Hallo!


Sub DisplayHeadingsOff()
Dim Blatt As Object
Dim AktivesBlatt As String

AktivesBlatt = ActiveSheet.Name
Application.ScreenUpdating = False

For Each Blatt In Worksheets
Blatt.Activate
ActiveWindow.DisplayHeadings = False
Next Blatt

Sheets(AktivesBlatt).Activate
Application.ScreenUpdating = True

End Sub

Code eingefügt mit VBA in HTML 2.0


Gruß, René


  

Betrifft: AW: Statt ActiveWindow alle Arbeitsblätter von: Rainer
Geschrieben am: 16.11.2009 11:38:02

Hallo René,

danke, klappt.

Gruß Rainer


Beiträge aus den Excel-Beispielen zum Thema "Statt ActiveWindow alle Arbeitsblätter"