Sub Ausblenden()
ActiveWindow.DisplayGridlines = False
End Sub
Sub Einblenden()
ActiveWindow.DisplayGridlines = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 2 ^ 24 Then
ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines
End If
End Sub
Sub Gitter()
If ActiveWindow.DisplayGridlines = True Then GoTo Aus:
If ActiveWindow.DisplayGridlines = False Then GoTo Ein:
Ein:
ActiveWindow.DisplayGridlines = True
End
Aus:
ActiveWindow.DisplayGridlines = False
End
End Sub
Sub GitternetzAus()
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Sheets("Tabelle1").Activate
ActiveWindow.DisplayGridlines = False
End Sub
Sub Gitter()
If ActiveWindow.DisplayGridlines = True Then GoTo Aus:
If ActiveWindow.DisplayGridlines = False Then GoTo Ein:
Ein:
ActiveWindow.DisplayGridlines = True
End
Aus:
ActiveWindow.DisplayGridlines = False
End
End Sub
Private Sub CommandButton11_Click()
Sheets(Array("Main Menu", "balance sheet", "balance sheet(service)", "P&L", "P&L (service)", "Consolidation I", "Consolodation II", "Calculation", "key figures (standard)", "Remarks")).Select
Sheets("Main Menu").Activate
ActiveWindow.DisplayGridlines = False
End Sub
Sub workbook_open()
dein makro
End Sub