mit einer Kombination aus einer VBS Datei und folgendem Code bei Workbook_Open(), erstelle ich eine komplett neue Excel Instanz (Applikation) bei vorherigen und anschließendem Öffnen anderer Excel Dateien.
Private Sub Workbook_Deactivate()
Application.ScreenUpdating = False
Dim n As String
If Workbooks.Count > 1 Then
Application.EnableEvents = False
With ActiveWorkbook
n = .FullName
.Close savechanges:=False
End With
Application.EnableEvents = True
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
On Error Resume Next
If Dir(n) "" Then
'MsgBox "open"
xlApp.Workbooks.Open Filename:=n
If Err.Number > 0 Then
xlApp.Quit
Else
xlApp.Application.Visible = True
End If
Else
xlApp.Workbooks.Add
xlApp.Application.Visible = True
End If
Set xlApp = Nothing
End If
Workbooks("XMAIL_V4.xlsm").Activate
Application.Visible = False
End Sub
Im Taskmanager sind es 2 separate Zeilen.
In Datei 1 wird per Combobox ein Standort ausgewählt.
Ich möchte nun, dass bei Auswahl eines Standortes per Dropdown in Datei 1, bei Datei 2 das
entsprechende Sheet mit dem (identischen) Standortnamen XY angewählt wird.
In der selben Instanz kein Problem.
If CB_Test.Value = "Hagen" Then
Workbooks("Test.xlsm").Sheets("Hagen").Select
End If
Für eine andere Instanz habe ich bisher nur Set xlApp = GetObject("ExampleBook.xlsx").Application
gefunden, was nicht funktionierte.
Vermutlich ist die Lösung wieder einfacher als gedacht :)
Lieben Dank vorab.