Thema Datum  Von Nutzer Rating
Antwort
Rot Makro funktioniert nach Speichern der Datei nicht
03.08.2016 12:57:25 Daniel
NotSolved
03.08.2016 13:29:08 Gast78420
NotSolved
03.08.2016 13:30:54 Gast45966
NotSolved
03.08.2016 13:42:15 Daniel
NotSolved
09.08.2016 08:54:06 Christian
NotSolved

Ansicht des Beitrags:
Von:
Daniel
Datum:
03.08.2016 12:57:25
Views:
1772
Rating: Antwort:
  Ja
Thema:
Makro funktioniert nach Speichern der Datei nicht

Hallo VBA-Experten,

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

<b>Application.Run ActiveWorkbook.Name & "!CallSapRrp3"</b>

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:

<b>"Laufzeitfehler 1004 - Makro kann nicht ausgeführt werden. Das Makro ist möglicherweise in dieser Arbeitsmappe nicht verfügbar, oder alle Makros wurden deaktiviert."</b>

Wie erwähnt, sind beide Dateien zu 100% identisch, bei der "Rohdatei" funktioniert es, bei der gespeicherten Kopie nicht.

Ich bin mit meinem Latein am Ende, kann mir hier jemand weiterhelfen?

Vielen Dank im Vorraus!

Daniel

Zur Vollständigkeit das gesamte Makro:

<b>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</b>

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro funktioniert nach Speichern der Datei nicht
03.08.2016 12:57:25 Daniel
NotSolved
03.08.2016 13:29:08 Gast78420
NotSolved
03.08.2016 13:30:54 Gast45966
NotSolved
03.08.2016 13:42:15 Daniel
NotSolved
09.08.2016 08:54:06 Christian
NotSolved