Makro funktioniert nach Speichern der Datei nicht
03.08.2016 12:02:15
Daniel
ich verzeifle gerade an einem Problem und wende mich als letzten Ausweg an Euch:
In lasse in meiner Datei das Makro "CallSapRrp3" durch Doppelklick auf entweder Spalte A oder B _
mit der Funktion
Application.Run ActiveWorkbook.Name & "!CallSapRrp3"
durchlaufen (Select Case Methode). Wie ersichtlich, wird der Zielarbeitsmappenbezug durch ActiveWorkbook.Name dynamisch hergestellt. Der Code befindet sich unter "DieseArbeitsmappe".
Das Makro funktioniert in meiner "Rohdatei" tadellos. Nun das Problem: Wenn ich die Datei an jemanden per Email weiterschicke und dieser die Datei daraus öffnet und abspeichert ("Kopie von XXX"), dann erhalten diese bei Doppelklick den Fehler:
"Laufzeitfehler 1004 - Makro kann nicht ausgeführt werden. Das Makro ist möglicherweise in dieser Arbeitsmappe nicht verfügbar, oder alle Makros wurden deaktiviert."
Ich bin mit meinem Latein am Ende, kann mir hier jemand weiterhelfen?
Vielen Dank im Vorraus!
Daniel
Zur Vollständigkeit das gesamte Makro:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel _
As Boolean)
Select Case Target.Column
'Click A column
Case 1
Cells(Target.Row, 1).Select
With Selection
.HorizontalAlignment = xlLeft
End With
Cancel = True
Application.Run ActiveWorkbook.Name & "!CallSapRrp3"
'Click B column
Case 2
Cells(Target.Row, 2).Select
With Selection
.HorizontalAlignment = xlLeft
End With
Cancel = True
Application.Run ActiveWorkbook.Name & "!CallSapRrp3", product, plant
End Select
End Sub
Anzeige