Supportnet / Forum / Tabellenkalkulation
gleichzeitiges Öffnen von Berichten
Frage
Hallo,
ich melde mich ml wieder mit einem Problem.
Ich habe 3 Exceldateien (A,B und C) die unbedingt alle geöffnet sein müssen um Datensicherheit, die über diverse Verknüpfungen kumuliert werden, zu haben.
Bis dato habe ich im Bericht "A" ein Vermerk gemacht, um das Öffnen von den Berichten "B und C" nicht zu vergessen.
Gibt es eine Möglichkeit alle Berichte über ein Mausklick zu öffnen, d. h. wenn ich Bericht "A" öffne gehen automatisch auch die Berichte "B und C" auf.
Danke und Gruß
Achim
Antwort 1 von Guenter
Hallo Achim,
das kannst Du mit dem Command-Button machen. Ich versuche mal eine einfache Erklärung:
Deine Exceldatei "A" hast Du geöffnet.
Dann auf Ansicht Symbolleisten Steuerelemente-Toolbox.
In den Entwurfsmodus gehen (links oben das Dreieck) und dann Befehlsschaltfläche wählen. Diese Befehlsschaltfläche an geeignete Stelle in Deiner Excel-Datei zeichnen. Mit rechts klicken und Code anzeigen wählen.
Dann dieses MAkro eingeben:
Erste und letzte Zeile sollten schon vorhanden sein, also nur die beiden anderen Zeilen eingeben. Natürlich statt Mappe1/2 den Namen Deiner Exceldateien "B" und "C" eingeben.
Dann zurück in die normale Excel-Ansicht und Entwurfsmodus beenden klicken.
Das wars, beim klicken auf den Command-Button werden die beiden Dateien geöffnet.
Gruß
Günter
das kannst Du mit dem Command-Button machen. Ich versuche mal eine einfache Erklärung:
Deine Exceldatei "A" hast Du geöffnet.
Dann auf Ansicht Symbolleisten Steuerelemente-Toolbox.
In den Entwurfsmodus gehen (links oben das Dreieck) und dann Befehlsschaltfläche wählen. Diese Befehlsschaltfläche an geeignete Stelle in Deiner Excel-Datei zeichnen. Mit rechts klicken und Code anzeigen wählen.
Dann dieses MAkro eingeben:
Private Sub CommandButton1_Click()
Workbooks.Open "Mappe1.xls"
Workbooks.Open "Mappe2.xls"
End Sub
Erste und letzte Zeile sollten schon vorhanden sein, also nur die beiden anderen Zeilen eingeben. Natürlich statt Mappe1/2 den Namen Deiner Exceldateien "B" und "C" eingeben.
Dann zurück in die normale Excel-Ansicht und Entwurfsmodus beenden klicken.
Das wars, beim klicken auf den Command-Button werden die beiden Dateien geöffnet.
Gruß
Günter
Antwort 2 von Rick
In Mappe A das VBA-Modul 'Diese Arbeitsmappe' öffnen und folgendes Makro einfügen:
Private Sub Workbook_Open()
Workbooks.Open FileName:="C:\WINDOWS\Desktop\b.xls"
Workbooks.Open FileName:="C:\WINDOWS\Desktop\c.xls"
Windows("a.xls").Activate
End Sub
Allerdings musst du noch den Pfad ändern (ich habe B und C auf dem Desktop abgespreichert)
Gruss
Rick
Private Sub Workbook_Open()
Workbooks.Open FileName:="C:\WINDOWS\Desktop\b.xls"
Workbooks.Open FileName:="C:\WINDOWS\Desktop\c.xls"
Windows("a.xls").Activate
End Sub
Allerdings musst du noch den Pfad ändern (ich habe B und C auf dem Desktop abgespreichert)
Gruss
Rick
Antwort 3 von want2cu
Hallo Achim,
ich hätte noch einen eher pragmatischen Ansatz:
Die 3 Berichte in einer einzigen Artbeitsmappe zu vereinen.
Wenn die Daten ohnehin schon notwendigerweise miteinander verknüpft sind und die Dateien immer gleichzeitig geöffnet sein müssen, hätte das auch noch ein paar weitere Vorteile.
CU
want2cu
ich hätte noch einen eher pragmatischen Ansatz:
Die 3 Berichte in einer einzigen Artbeitsmappe zu vereinen.
Wenn die Daten ohnehin schon notwendigerweise miteinander verknüpft sind und die Dateien immer gleichzeitig geöffnet sein müssen, hätte das auch noch ein paar weitere Vorteile.
CU
want2cu
Antwort 4 von joker61
Danke für Eure Hilfe,
die Version vom Rick ist ideal
Gruß
Achim
die Version vom Rick ist ideal
Gruß
Achim