GitternetzUndUeberschriftenEinAus()

Public Sub GitternetzUndUeberschriftenEinAus() Dim Blatt As Object Dim oldSheet As String oldSheet = ActiveSheet.Name With Application .ScreenUpdating = False For Each Blatt In ThisWorkbook.Worksheets Blatt.Activate With .CommandBars .ExecuteMso "GridlinesExcel" .ExecuteMso "ViewHeadings" Application.DisplayFormulaBar = False ''hab ich gemacht Werner End With Next Blatt Sheets(oldSheet).Activate .ScreenUpdating = True .Application.DisplayFormulaBar = True 'hab ich gemacht neu Werner 7.8.2019 End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Werner,
hier ein modifiziertes Tool, hoffentlich in Deinem Sinne:

Sub Test()

 GitternetzUndUeberschriftenEinAus False

 MsgBox "Alles aus"

 GitternetzUndUeberschriftenEinAus False

 MsgBox "Alles ein"

End Sub

Sub GitternetzUndUeberschriftenEinAus(bAnAus As Boolean)

 Dim Blatt As Worksheet, oldWSh As Worksheet

 Set oldWSh = ActiveSheet                    'Aktives Blatt retten

 With Application

    .ScreenUpdating = False

'Alle Blätter durchgehen

    For Each Blatt In ThisWorkbook.Worksheets

      Blatt.Activate

      ActiveWindow.DisplayHeadings = bAnAus  'überschriften aus/einblenden

      ActiveWindow.DisplayGridlines = bAnAus 'Gitternetz aus/ein

    Next Blatt

    .ScreenUpdating = True

    .DisplayFormulaBar = bAnAus              'Bearbeitungsleiste aus/ein

 End With

 oldWSh.Activate                             'Gerettetes Blatt reaktivieren

End Sub

viele Grüße
Karl-Heinz

Hallo Werner,
leider ist mir nicht bewusst, was Du eigentlich genau möchtest.
Das von mir gezeigte Makro blendet die Überschriften, die Gitternetzlinien und die Bearbeitungsleiste ein oder aus.
Die Test-Sub war ja nur ein Test, der das Ein/Ausblenden simuliert und nicht zur weiteren Verwendung gedacht war. Macht ja sonst wirklich keinen Sinn.
Leider ist davon in Deinem jetzigen Post nichts mehr von zu sehen.
Hier noch mal ein neuer Ansatz, der auch zusätzlich noch den Vollbildschirm ein/ausschaltet und zwei Subs, die Du dann bitte Deinen Buttons "An" und "Aus" zuordnest, falls es so gedacht und gewünscht ist.
Soll die Arbeitsmappe auch noch geschützt werden?
Der von Dir zusammengebastelte Code betrifft Menüleisten in "Altem Excel" und passt nicht zur gemachten Versionsangabe 2013 - Office 365. Hier gibt es im Prinzip nur noch den Ribbon.
Ich selber habe schon lange keine solch alten Excelversionen mehr, kann daher auch nix testen.

Sub AllesAn()

'Dieses einem Button "An" zuordnen

 GitternetzUndUeberschriftenEinAus True

End Sub

Sub AllesAus()

'Dieses einem Button "Aus" zuordnen

 GitternetzUndUeberschriftenEinAus False

End Sub

Sub GitternetzUndUeberschriftenEinAus(bAnAus As Boolean)

 Dim Blatt As Worksheet, oldWSh As Worksheet

 Set oldWSh = ActiveSheet                    'Aktives Blatt retten

 With Application

    .ScreenUpdating = False

'Alle Blätter durchgehen

    For Each Blatt In ThisWorkbook.Worksheets

      Blatt.Activate

      ActiveWindow.DisplayHeadings = bAnAus  'überschriften aus/ein

      ActiveWindow.DisplayGridlines = bAnAus 'Gitternetz aus/ein

    Next Blatt

    .ScreenUpdating = True

    .DisplayFormulaBar = bAnAus              'Bearbeitungsleiste aus/ein

    .DisplayFullScreen = Not bAnAus          'Vollbildschirm ein/aus

 End With

 oldWSh.Activate                             'Gerettetes Blatt reaktivieren

End Sub

PS: Ich bin in Südhessen an der bayrischen Grenze zuhause, sitze aber gerade hier in Frankfurt/Main. Und in Kiel war ich auch schon mehrfach geschäftlich an der "Zur Helling".
Ich hoffe, dass es jetzt so klappt, wie Du es Dir vorstellst.
viele Grüße
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

GitternetzUndUeberschriftenEinAus()

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread