Ein und Ausblenden /Vba

Forumthread: Ein und Ausblenden /Vba

22.08.2004 15:34:59

Fredi

Hallo,
ich würde gerne in einer Arbeitsmappe bzw. in den vorhandenen Sheets dieser Mappe, das ganze drum herum (ScrollBar, Menü usw.) mit einer Befehlsschaltfläche ausblenden und wieder einblenden können.
Kann mir jemand für dieses Vorhaben, einen Code schreiben oder eine Beispielmappe zur Verfügung stellen?
Danke im voraus
Fredi

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ein und Ausblenden /Vba

22.08.2004 15:42:40

Ramses
AW: Ein und Ausblenden /Vba

22.08.2004 17:02:32

Fredi
Hat sich erledigt :-)

22.08.2004 17:16:56

Fredi
Noch eine ZUSATZFRAGE

22.08.2004 20:05:09

Fredi
AW: Noch eine ZUSATZFRAGE

23.08.2004 22:14:35

andre
AW: Ein und Ausblenden /Vba

22.08.2004 15:43:36

Uduuh
AW: Ein und Ausblenden /Vba

22.08.2004 16:11:48

Beate Schmitz

AW: Ein und Ausblenden /Vba

22.08.2004 15:42:40

Ramses

Hallo
Starte den Makrorekorder
Mache alle Einstellungen in "Extras - Optionen" um die Umgebung anzupassen
Speichere das Makro
Weise es einer Schaltfläche zu.
Fertig.
... und Lerneffekt ist auch noch dabei :-)
Gruss Rainer

AW: Ein und Ausblenden /Vba

22.08.2004 17:02:32

Fredi

Hallo,
das mit der Aufzeichnung hat soweit geklappt!
Ein Punkt wäre da aber noch, das Menü!
Wie bekomme ich auch das noch ausgeblendet?
Kann unter Optionen nichts finden, oder hab ich etwas übersehen?
Gruß
Fredi


Sub Ausblenden()
' Ausblenden Makro
' Makro am 22.08.2004 aufgezeichnet
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
.ShowWindowsInTaskbar = False
End With
End Sub


Sub Einblenden()
' Einblenden Makro
' Makro am 22.08.2004 aufgezeichnet
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
.ShowWindowsInTaskbar = True
End With
End Sub

Hat sich erledigt :-)

22.08.2004 17:16:56

Fredi

Hallo,
bin schon draufgekommen!
Es fehlte
.CommandBars("Worksheet Menu Bar").Enabled = False
Danke euch allen
Gruß
Fredi

Noch eine ZUSATZFRAGE

22.08.2004 20:05:09

Fredi

Hallo,
jetzt hab doch noch eine Frage.
Wenn ich das ganze Prozedere auf ein
einzelnes Sheet beziehen möchte, muß
es doch
Sheets("Tabelle3").Select
heißen.
Führe ich das Makro nun über eine Befehlsschaltfläche
aus, die sich in einem anderen Sheet(Tabelle1)befindet,
wird sofort in Tabelle3 gewechselt.
Ich möchte aber dabei erst einmal noch in Tabelle1 bleiben.
Wie muß es nun geändert werden?
Gruß
Fredi

AW: Noch eine ZUSATZFRAGE

23.08.2004 22:14:35

andre

Hallo Fredi,
wenn Du was mit einem anderen als dem aktiven Sheet tun willst dann musst Du den Namen des Sheets oder den Index davor schreiben.
z.B. Sheets(1).Range("a1").copy destination:= Sheets(2).Range("b1")

AW: Ein und Ausblenden /Vba

22.08.2004 15:43:36

Uduuh

Hallo,
zeichne dir das Ganze doch mit dem Recorder auf.
Gruß aus'm Pott
Udo

AW: Ein und Ausblenden /Vba

22.08.2004 16:11:48

Beate Schmitz

Hallo Fredi,
schau dir mal den Thread "Full full screen" an:
http://www.excel-center.de/forum/read.php?f=1&i=70216&t=70209
Gruß,
Beate

Infobox / Tutorial

Ein- und Ausblenden von Excel-Elementen mit VBA

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um Elemente in Excel mit VBA ein- und auszublenden, kannst du die folgenden Schritte befolgen:

Makro-Recorder starten: Gehe zu Entwicklertools > Makro aufzeichnen und führe die gewünschten Aktionen aus, um die Umgebung anzupassen. Dies hilft dir, den VBA-Code zu lernen.
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Neues Modul erstellen: Klicke mit der rechten Maustaste auf VBAProject (deine_datei.xlsx) > Einfügen > Modul.

Code einfügen:

Sub Ausblenden()
   ' Ausblenden Makro
   Application.CommandBars("Formatting").Visible = False
   Application.CommandBars("Standard").Visible = False
   With ActiveWindow
       .DisplayHeadings = False
       .DisplayHorizontalScrollBar = False
       .DisplayVerticalScrollBar = False
       .DisplayWorkbookTabs = False
   End With
   With Application
       .DisplayFormulaBar = False
       .DisplayStatusBar = False
       .ShowWindowsInTaskbar = False
   End With
End Sub

Sub Einblenden()
   ' Einblenden Makro
   Application.CommandBars("Formatting").Visible = True
   Application.CommandBars("Standard").Visible = True
   With ActiveWindow
       .DisplayHeadings = True
       .DisplayHorizontalScrollBar = True
       .DisplayVerticalScrollBar = True
       .DisplayWorkbookTabs = True
   End With
   With Application
       .DisplayFormulaBar = True
       .DisplayStatusBar = True
       .ShowWindowsInTaskbar = True
   End With
End Sub

Makro speichern: Speichere deine Änderungen und schließe den VBA-Editor.
Befehlsschaltfläche hinzufügen: Füge eine Schaltfläche in dein Arbeitsblatt ein und weise die Makros Ausblenden und Einblenden zu.

Häufige Fehler und Lösungen

Menü wird nicht ausgeblendet: Wenn das Menü nicht ausgeblendet wird, füge folgende Zeile in dein Ausblenden-Makro ein:
```
Application.CommandBars("Worksheet Menu Bar").Enabled = False
```
Fehlermeldung beim Ausführen: Stelle sicher, dass du in der richtigen Arbeitsmappe bist und dass das Makro korrekt gespeichert wurde.
Statusleiste bleibt sichtbar: Überprüfe, ob im Einblenden-Makro die Zeile für die Statusleiste korrekt ist:
```
.DisplayStatusBar = True
```

Alternative Methoden

Falls du keine VBA-Programmierung verwenden möchtest, kannst du auch die folgenden Methoden ausprobieren:

Excel-Optionen: Du kannst einige Ansichtseinstellungen über Datei > Optionen > Erweitert anpassen, um Elemente wie die Statusleiste manuell auszublenden.
Tastenkombinationen: Nutze den ausblenden excel shortcut, um schnell zwischen Ansichten zu wechseln, jedoch sind die Anpassungen begrenzt.

Praktische Beispiele

Hier sind einige praktische Beispiele für das Ausblenden und Einblenden von Excel-Elementen:

Wortsuchspiel in wenigen Minuten erstellen: Verwende die VBA-Makros, um eine saubere Benutzeroberfläche zu schaffen, während du dein Spiel erstellst.
Einblenden spezifischer Elemente: Du kannst die Makros anpassen, um nur bestimmte Elemente wie die Statusleiste oder die Menüleisten ein- oder auszublenden.

Tipps für Profis

Erweiterte Anpassungen: Du kannst die activewindow.displayworkbooktabs-Einstellung nutzen, um die Registerkarten in deiner Arbeitsmappe gezielt ein- oder auszublenden.
Fehlerbehandlung einfügen: Implementiere Fehlerbehandlungen in deinem VBA-Code, um Probleme beim Ausführen von Makros zu vermeiden, z.B.:
```
On Error Resume Next
```
Dokumentation: Halte deinen Code gut dokumentiert, damit du und andere Benutzer ihn in der Zukunft leichter verstehen und anpassen können.

FAQ: Häufige Fragen

1. Frage
Wie kann ich das Ausblenden auf ein bestimmtes Blatt beschränken?
Antwort: Füge Sheets("DeinBlattName").Select am Anfang deines Makros ein, um das gewünschte Blatt auszuwählen.

2. Frage
Kann ich die Makros auf einen Shortcut legen?
Antwort: Ja, du kannst jedem Makro eine Tastenkombination zuweisen, indem du im VBA-Editor auf Extras > Makros > Makros und dann auf Optionen klickst.

Beliebteste Forumthreads (12 Monate)

Forumthread: Ein und Ausblenden /Vba

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Infobox / Tutorial

Ein- und Ausblenden von Excel-Elementen mit VBA

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread