Makro in zweiter Datei von zweitem User ausführen
05.02.2019 11:30:24
zweitem
ich habe ein Problem, welches sich wohl nicht so einfach lösen lässt.
Folgende Ausgangslage:
Ich habe eine Excel-Datei, welche 2 Makros hintereinander in einer anderen Datei ausführen soll. Sie liegt auf einem Laufwerk und wird jeden Tag von einem anderen User ausgeführt (beide Dateien liegen auf dem Laufwerk). Komischerweise klappt es bei nur bei manchen Usern. Das erste Makro soll eine Berechnung durchführen, das zweite Makro das Ergebnis per E-Mail versenden.
Der Code sieht verienfacht so aus:
Sub Berechnung()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
On Error GoTo errorhandler
Dim ziel As String
Dim makro1 As String
Dim makro2 As String
Dim wbTS As Workbook
Dim wsS As Worksheet
Set wsS = ThisWorkbook.Sheets("S")
ziel = "Pfad\Dateiname"
Set wbTS = Workbooks.Open(ziel)
makro1 = "m1"
Application.Run "'" & ziel & "'!" & makro1
makro2 = "m2"
Application.Run "'" & ziel & "'!" & makro2
wbTS.Close SaveChanges:=True
Exit Sub
errorhandler:
MsgBox "Berechnung abgebrochen", vbInformation
End
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End
Sub