Hallo.
Folgendes will ich durch ein Excel Makro erreichen:
Drei .xls Dateien so miteinander verknüpfen, dass, wenn eine der drei geöffnet wird, automatisch die beiden anderen mitgeöffnet werden. Da ich mich mit VBA garnicht auskenne, hoffe ich hier auf Hilfe!
Grüße, trabantdelux
Folgendes will ich durch ein Excel Makro erreichen:
Drei .xls Dateien so miteinander verknüpfen, dass, wenn eine
der drei geöffnet wird, automatisch die beiden anderen
mitgeöffnet werden. Da ich mich mit VBA garnicht auskenne,
hoffe ich hier auf Hilfe!
Hi trabantdelux,
quick,dirty,ungetestet: Alt+F11, Doppelklick auf DieseArbeitsmappe, Code einfügen, Editor schliessen. Dies bei allen drei dateien.
Private Sub Workbook_Open()
On Error Resume Next
Workbooks.Open „C:\Test\Datei1.xls“
Workbooks.Open „C:\Test\Datei2.xls“
Workbooks.Open „C:\Test\Datei3.xls“
End Sub
Gruß
Reinhard
Danke! Ich werd’s testen & schreib dann, ob’s geklappt hat.
Gruß, trabantdeluxe
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Reinhard,
mich hat das Problem auch interessiert. Habe bei a.XLS ein Modul eigefügt,
dann dein Makro einkopiert (und angepasst) um b.XLS zu öffnen. Beim Öffnen von Mappe a hat sich Mappe b aber nicht geöffnet.
Habe ich da was falsch gemacht?
Gruß Klaus
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
mich hat das Problem auch interessiert. Habe bei a.XLS ein
Modul eigefügt,
dann dein Makro einkopiert (und angepasst) um b.XLS zu öffnen.
Beim Öffnen von Mappe a hat sich Mappe b aber nicht geöffnet.
Habe ich da was falsch gemacht?
Hi Klaus,
höchstens dass es in einm Modul steht und nicht in DieseArbeitsmappe.
Code lief nur teilweise, also abhängog davon welche der 3 dateien man zuerst startete.
Option Explicit
Private Sub Workbook\_Open()
Dim D, N, Datei(3, 3), Dateien, Vorh As Boolean
'On Error GoTo Fehler
'Application.EnableEvents = False
Dateien = Array("Datei1.xls", "Datei2.xls", "Datei3.xls")
For D = 0 To UBound(Dateien)
Vorh = False
For N = 1 To Workbooks.Count
If Dateien(D) = Workbooks(N).Name Then
Vorh = True
Exit For
End If
Next N
If Vorh = False Then Workbooks.Open "C:\Test\" & Dateien(D)
Next D
'Fehler:
'Application.EnableEvents = True
End Sub
Gruß
Reinhard
Hi Reinhard,
habe dein Makro wie folgt geändert, weil ich nur 2 Dateien öffne (wenn ich eine KW49.XLS - Name ändert sich jede Woche - öffne, soll eine NKDA.XLS geöffnet werden). Habe dieses Makro in die KW49.xls in ein neues Modul einkopiert. Und danach die KW49.xls neu geöffnet. Da passiert dann nichts. Aber warum nicht??
Gruß Klaus
Option Explicit
Private Sub Workbook_Open()
Dim D, N, Datei(3, 3), Dateien, Vorh As Boolean
'On Error GoTo Fehler
'Application.EnableEvents = False
Dateien = Array(„nkda.xls“)
For D = 0 To UBound(Dateien)
Vorh = False
For N = 1 To Workbooks.Count
If Dateien(D) = Workbooks(N).Name Then
Vorh = True
Exit For
End If
Next N
If Vorh = False Then Workbooks.Open „C:\Test“ & Dateien(D)
Next D
'Fehler:
'Application.EnableEvents = True
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]