Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ein-/Ausblenden, Scripts 1-2 in Script 3 einbauen?

Ein-/Ausblenden, Scripts 1-2 in Script 3 einbauen?
12.12.2016 17:26:38
Peter
Hallo zusammen
Ich habe unten stehende Scripts 1-3. Script 1 blended die Bearbeitungszeile und die Menubar aus/ein. Nun möchte ich noch die Zeilen und Sapltenüberschriften ein-/ausblenden. Dazu habe ich die Scripts 1-2. Jedoch habe ich es nicht geschaft, diese in das Script3 so einzubauen, das die Zeilen/Spaltenüberschriften ebenfalls mit ein/ausgeblendet werden. Wie muss ich das Script anpassen?
Script1
Sub SpaltenZeilenueberschriften_Ausblenden()
ActiveWindow.DisplayHeadings = False
End Sub
Script2
Sub SpaltenZeilenueberschriften_Einblenden()
ActiveWindow.DisplayHeadings = True
End Sub
Script3
Sub AllesAusEinBlenden()
Dim oBar As CommandBar
With CommandBars("Worksheet Menu Bar")
If .Enabled Then
.Enabled = False
Application.DisplayFullScreen = True
For Each oBar In Application.CommandBars
If oBar.Name  "Worksheet Menu Bar" Then
If oBar.Visible Then
oBar.Visible = False
End If
End If
Next oBar
ActiveWorkbook.Protect Windows:=True
Else
ActiveWorkbook.Unprotect
.Enabled = True
Application.DisplayFullScreen = False
End If
End With
End Sub

Danke
Gruss,
Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ein-/Ausblenden, Scripts 1-2 in Script 3 einbauen?
12.12.2016 17:50:37
Matthias
Hallo Peter
Vor End Sub diese Zeile einfügen:
ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
Gruß Matthias
AW: Ein-/Ausblenden, Scripts 1-2 in Script 3 einbauen?
17.12.2016 16:14:07
Peter
Hallo Matthisa
Danke für Deine Antwort, jedoch funktioniert es nicht so richtig. Bei zwei Tabellen, soll jeweils alles ausgeblendes werden, wenn jedoch eine andere Tablle aktiviert wird, dann soll alles eingeblendet sein.
Ich habe nun folgende Lösung, nicht so elegant, aber es funktioniert:
Private Sub Worksheet_Activate()
Application.EnableEvents = False
Application.ScreenUpdating = False
On Error GoTo Fehler
'Bildlaufleiste_Ausblenden()
Dim oBar As CommandBar
With CommandBars("Worksheet Menu Bar")
If .Enabled Then
.Enabled = False
Application.DisplayFullScreen = True
For Each oBar In Application.CommandBars
If oBar.Name  "Worksheet Menu Bar" Then
If oBar.Visible Then
oBar.Visible = False
End If
End If
Next oBar
ActiveWorkbook.Protect Windows:=True
Else
ActiveWorkbook.Unprotect
.Enabled = True
Application.DisplayFullScreen = False
End If
End With
'SpaltenZeilenueberschriften_Ausblenden()
ActiveWindow.DisplayHeadings = False
'Bearbeitungszeile_Ausblenden()
Application.DisplayFormulaBar = False
Fehler:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Deactivate()
Application.EnableEvents = False
Application.ScreenUpdating = False
On Error GoTo Fehler
'Bildlaufleiste_Ausblenden()
Dim oBar As CommandBar
With CommandBars("Worksheet Menu Bar")
If .Enabled Then
.Enabled = False
Application.DisplayFullScreen = True
For Each oBar In Application.CommandBars
If oBar.Name  "Worksheet Menu Bar" Then
If oBar.Visible Then
oBar.Visible = False
End If
End If
Next oBar
ActiveWorkbook.Protect Windows:=True
Else
ActiveWorkbook.Unprotect
.Enabled = True
Application.DisplayFullScreen = False
End If
End With
'SpaltenZeilenueberschriften_Einblenden()
ActiveWindow.DisplayHeadings = True
'Bearbeitungszeile_Einblenden()
Application.DisplayFormulaBar = True
Fehler:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Viele Grüsse,
Peter
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige