Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Befehl zum Öffnen von Zwei Excel-Ordner





Frage

Hallo zusammen, Ich suche nach dem Befehl zum Öffnen von Zwei Excel-Ordner mit benutzer- definiertem Makroschalter in den Symbolleisten. Erste Ordner Test1.xls Tabelle1 Zweite Ordner Test2.xls Tabelle 2 Der zweite Ordner kann hin und widermall vorher schon geöffnet sein. Es soll kontrolliert werden wenn zweite Ordner schon geöffnet ist dann soll ohne Fehler Meldung weiter arbeiten mit den Ordner möglich sein. Würde mich über jeder Hilfe sehr freuen Umut

Antwort 1 von martl

Hallo Umut,

versuchs mal mit folgenden Codes:

Sub Datei1()
Workbooks.Open Filename:= _
"C:\Test1.xls"
Worksheets("Tabelle1").Select
End Sub


Sub Datei2()
On Error Resume Next
Workbooks.Open Filename:= _
"C:\Test2.xls"
Worksheets("Tabelle2").Select
End Sub

Diese Codes solltest Du in die persönlich Makroarbeitsmappe (PERSONL.XLS) einbauen, so vorhanden. Dazu die Entwicklungsumgebung von Excel aufrufen (ALT+11)... Es gibt bei SN sehr gute Hinweise zur weiteren Vorgehensweise und zum Einbau des Codes. Deshalb lass ich die mal hier weg...

Falls noch Fragen sind, einfach nochmals melden...

Gruß
martl

Antwort 2 von umut

Hallo Martl,
Danke für den Vorschlag aber es ist nicht das was ich suche. Da beide Ordner mit gleichen Makroschalter zeitgleich geöffnet werden und vom zweite Ordner den Tabelle 2 minimiert an Task Leiste abgestellt sein muss. (Zweite Ordner hat Große Datenmenge die ich einige davon mit Verknüpfungen und Formeln in dem ersten Ordner verwende)
Mit freundlichen Grüßen
Umut


Antwort 3 von martl

Hallo Umut,

hmm - schade, vielleicht gehts aber so ?

Sub Dateien_öffnen()
On Error Resume Next
Workbooks.Open Filename:= _
"C:\Test2.xls"
Worksheets("Tabelle2").Select
ActiveWindow.WindowState = xlMinimized
Workbooks.Open Filename:= _
"C:\Test1.xls"
Worksheets("Tabelle1").Select
End Sub

Gruß
martl

Antwort 4 von umut

Hallo Martl,
Echt super!!! Es ist perfekt… genau was ich gesucht habe... :o)
DANKE vielmals!!!
Wünsch Dir noch einen schönen Abend.
MfG Umut



Antwort 5 von martl

Hallo Umut,

danke für Deine nette Rückmeldung! Auch wenn die erste Lösung nicht gleich ganz das war... Wünsch Dir auch noch nen schönen Abend und viel Spaß beim exceln

Grüßle
martl