Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
228to232
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
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mappe automatisch öffnen

Mappe automatisch öffnen
12.03.2003 09:33:54
Hans-Jörg
Hallo,
ich möchte im Open-Ereigniss einer Mappe, eine zweite Mappe öffnen.
Beide Mappen sollen sich den Bildschirm Teilen damit beide sichtbar sind.
wer kann mir einen Ansatz zeigen um beide Mappen auf den bildschirm zu bringen.
Vielen Dank
Hans-Jörg

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Mappe automatisch öffnen
12.03.2003 09:36:59
DT

Zeichne es dir doch mit dem Makrorekorder auf und schau dir an wie es gemacht wird.

Gruß DT

Re: Arbeitsbereich
12.03.2003 09:39:40
Heidrun

Hallo Hans-Jörg,

Du kannst auch einene Arbeitsbereich abspeichern:

Öffne beide Mappen, ordne Sie Deinen Vorstelleungen gemäß an und speichere die ANordnung als Arbeitsbereich.

Heidrun

Re: Arbeitsbereich nicht möglich
12.03.2003 09:46:57
Hans-Jörg

Habe ich auch schon daran gedacht aber ist nicht ´der richtige Ansatz. Denn beim speichern der Arbeitsumgebung werden auch alle Add-In und versteckte Mappen (Personl.xls) erneut geöffnet.
Hans-Jörg

Re: Arbeitsbereich nicht möglich
12.03.2003 09:52:12
DT

Warum denn so kompliziert.

Windows.Arrange ArrangeStyle:=xlTiled

Gruß DT

Anzeige
Re: Mappe automatisch öffnen
12.03.2003 10:09:34
Matthias

Hallo, versuch mal folgenden Code:

ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Width = 234
.Height = 461.25
End With
Workbooks.Open(FileName:= _
"Laufwerk:\Pfad\Mappe.xls").RunAutoMacros Which _
:=xlAutoOpen
Application.Run "Mappe1.xls!CheckWindow"
Application.Run "Mappe1.xls!CheckSheet"
With ActiveWindow
.Top = 0.25
.Left = 249.25
End With
With ActiveWindow
.Width = 483
.Height = 441.75
End With

Häng' den Code an das Workbook Open Ereignis.
Bei dem Code musst Du den FileName (Pfad) und den Namen der zu
öffenden Datei nach Deinen Anforderungen anpassen.

Anzeige
Re: Vielen Dank
12.03.2003 10:46:19
Hans-Jörg

.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige