Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
196to200
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
196to200
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
1
4