Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
196to200
196to200
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsmappen minimieren

Forumthread: Arbeitsmappen minimieren

Arbeitsmappen minimieren
03.01.2003 15:28:08
Florian
Hallo,

ich möchte beim Öffnen einer Datei ein UserForm aufrufen und dabei - unabhängig wieviele andere Workooks bereits geöffnet sind - alle Workbooks minimieren...

ich habe es soweit geschafft, dass das userform sichtbar ist und das komplette excel minimiert ist, das möchte ich allerdings auch wieder nicht. wo liegt mein fehler?

kann mir jemand ein vereinfachtes modul zeigen?

Danke
flo

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Arbeitsmappen minimieren
03.01.2003 15:33:23
Hajo_Zi
Hallo Florian


Option Explicit

	

Sub Florian()

	Set v = Workbooks

	For Z = 1 To v.Count

		Windows(v.Item(Z).Name).Visible = False

	Next Z

	UserForm1.Show

	For Z = 1 To v.Count

		If v.Item(Z).Name <> "PERSONL.XLS" Then

			Windows(v.Item(Z).Name).Visible = True

		End If

	Next Z    

End Sub

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein


Gruß Hajo

Anzeige
Re: Arbeitsmappen minimieren
03.01.2003 15:35:24
Jessica
Hi flo!

Dim x As Workbook
For Each x In Workbooks
x.WindowState = xlMinimized
Next

Gruß,
Jessica

funktioniert bei mir nicht
03.01.2003 15:57:44
flo
...leider funktioniert das bei mir nicht...

es kommt immer die fehlermeldung :
objekt unterstützt diese methode oder eigenschaft nicht...

woran kann das nur liegen

Anzeige
Re: Arbeitsmappen minimieren
03.01.2003 16:22:04
Nepumuk
Hallo Flo,
so geht's:

Private Sub Workbook_Open()
Dim Fenster As Object
For Each Fenster In Application.Windows
Fenster.WindowState = xlMinimized
Next Fenster
ActiveWindow.WindowState = xlMaximized
UserForm1.Show
End Sub

Gruß
Nepumuk

Anzeige
;
Anzeige

Infobox / Tutorial

Arbeitsmappen minimieren in Excel

Schritt-für-Schritt-Anleitung

Um alle geöffneten Excel-Fenster zu minimieren und ein UserForm anzuzeigen, kannst du den folgenden VBA-Code nutzen. Dieser Code sorgt dafür, dass alle Arbeitsmappen minimiert werden, bevor das UserForm angezeigt wird:

Private Sub Workbook_Open()
    Dim Fenster As Object
    For Each Fenster In Application.Windows
        Fenster.WindowState = xlMinimized
    Next Fenster
    ActiveWindow.WindowState = xlMaximized
    UserForm1.Show
End Sub
  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
  2. Füge den Code in das entsprechende Modul ein.
  3. Speichere die Datei als Makro-fähige Arbeitsmappe (Dateityp: .xlsm).
  4. Schließe den VBA-Editor und teste das Makro durch das Öffnen der Arbeitsmappe.

Häufige Fehler und Lösungen

  • Fehlermeldung: "Objekt unterstützt diese Methode oder Eigenschaft nicht"

    • Dieser Fehler tritt häufig auf, wenn die Referenz auf das Fenster nicht korrekt ist. Stelle sicher, dass du Application.Windows verwendest und nicht Workbooks.

  • Excel öffnet sich immer minimiert

    • Überprüfe deine Excel-Einstellungen und stelle sicher, dass kein anderes VBA-Skript das Fenster minimiert. Manchmal kann ein Fehler in den Excel-Optionen dazu führen, dass Excel standardmäßig minimiert geöffnet wird.

Alternative Methoden

Falls du eine andere Methode zur Minimierung der Fenster bevorzugst, kannst du auch den folgenden Code verwenden, der eine Schleife über die geöffneten Arbeitsmappen nutzt:

Dim x As Workbook
For Each x In Workbooks
    x.WindowState = xlMinimized
Next x

Diese Methode ist einfach und funktioniert gut, wenn du nur die geöffneten Arbeitsmappen minimieren möchtest, während das Excel-Fenster selbst maximiert bleibt.

Praktische Beispiele

Hier sind einige Beispiele, wie der Minimierungsprozess in verschiedenen Szenarien verwendet werden kann:

  1. Minimieren bei der Dateiauswahl: Wenn du eine Excel-Tabelle minimieren möchtest, um den Fokus auf das UserForm zu legen, kannst du den oben genannten Code verwenden.

  2. Minimieren beim Öffnen einer bestimmten Datei: Füge den Minimierungscode in das Workbook_Open()-Ereignis der spezifischen Datei ein, um automatisch beim Öffnen zu minimieren.

Tipps für Profis

  • Code optimieren: Du kannst die Schleifen und Bedingungen in deinem VBA-Code optimieren, um die Ausführungsgeschwindigkeit zu erhöhen, besonders wenn viele Arbeitsmappen geöffnet sind.

  • Fehlerbehandlung: Füge Fehlerbehandlungsroutinen hinzu, um den Code robuster zu gestalten, z.B. mit On Error Resume Next.

  • Benutzerdefinierte Formulare: Gestalte dein UserForm ansprechend, um die Benutzererfahrung zu verbessern, während die anderen Fenster minimiert sind.

FAQ: Häufige Fragen

1. Warum öffnet sich Excel immer minimiert?
Dies kann an einer fehlerhaften Verknüpfung oder an spezifischen Windows-Einstellungen liegen. Überprüfe die Eigenschaften der Excel-Verknüpfung und stelle sicher, dass "Normal" ausgewählt ist.

2. Wie kann ich alle Excel-Fenster minimieren, ohne ein UserForm anzuzeigen?
Verwende einfach den Minimierungscode ohne das UserForm1.Show-Kommando. So werden die Fenster minimiert, ohne dass ein Formular angezeigt wird.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige