Warum wird die Datei 2mal geöffnet?
27.01.2020 21:10:21
Timm
es gibt eine Excel-Datei "Mappe1.xlsx", welche von einer externen Software aus einer Vorlage erstellt wird. Dadurch ist leider das Format auf "xlsx" festgelegt. Diese Datei soll durch ein Makro bearbeitet werden. Die Idee war nun, einen Hyperlink in der Datei anzulegen und dadurch eine Datei mit Makro aufzurufen. Die Datei mit Makro heißt "Mappe2.xlsm". Soweit klappt es auch, die Datei "Mappe1" wird bearbeitet und gespeichert. Aber "Mappe2" wird bei aktiveren durch den Hyperlink immer 2 mal ausgeführt. Im VBA-Editor bleibt dann auch das Projekt von "Mappe2" geladen, obwohl das Fenster bereits geschlossen ist.
Wenn man "Mappe2" manuell startet, dann passiert das nicht.
Der Code für "Mappe2":
Private Sub Workbook_Open()
Call MachWas
End Sub
Sub MachWas()
Application.EnableEvents = False
Dim wbTMP As Workbook
For Each wbTMP In Workbooks
If wbTMP.Name = "Mappe1.xlsx" Then
Set wbTMP = Workbooks("Mappe1.xlsx")
BoOffen = True
Exit For
End If
Next
If BoOffen = False Then
MsgBox "Bitte erst Mappe1 öffnen!"
End
End If
MsgBox "Hallo!"
'Hier wird Mappe1 bearbeitet und gespeichert
ThisWorkbook.Close
Application.EnableEvents = True
End
End Sub
VG
