Option Explicit
'***********< SAP >****************
'*Fehlerbehebung SAP nach SAPExecuteCommand:
'*Die Ausführung des Codes wurde unterbrochen
'*Behebung auf vba Codeseite: Strg+Pause, Strg+Pause, F5
'*behebt das Fehlerverhalten. Scheint ein Bug in vba zu
sein
Public Sub SAP_Afo_An_Daten_aktualisieren()
SAP_Analysis_aktivieren
SAP_Daten_aktualisieren
End Sub
Public Sub SAP_Afo_AnAus_Daten_aktualisieren()
SAP_Analysis_aktivieren
SAP_Daten_aktualisieren
SAP_Analysis_deaktivieren
End Sub
Public Sub SAP_Analysis_aktivieren()
'------------< SAP_Analysis_aktivieren() >------------
'*Suche
COM-Addin=Analysis und aktiviere mit Connect=true
Application.StatusBar =
"suche Afo.."
Dim addin As COMAddIn
For Each addin In Application.COMAddIns
Dim sAddin As String
sAddin = addin.Description
If sAddin = "Analysis" Then
'< anschalten >
Application.StatusBar = Now &
" Afo wird aktiviert.."
addin.Connect = True
Application.StatusBar =
Now & " Afo ist aktiviert."
Exit
Sub 'abbruch
'</ anschalten >
End If
Next
MsgBox "Afo
Addin wurde nicht gefunden", vbInformation, "AfO check"
Application.StatusBar = Now & " Afo Addin nicht
gefunden."
'------------</ SAP_Analysis_aktivieren() >------------
End Sub
Public Sub SAP_Analysis_deaktivieren()
'------------< SAP_Analysis_deaktivieren() >------------
'*Suche
COM-Addin=Analysis und aktiviere mit Connect=true
Dim addin As COMAddIn
For Each addin In Application.COMAddIns
Dim sAddin As String
sAddin = addin.Description
If sAddin = "Analysis" Then
Application.StatusBar = Now &
" Afo wird deaktiviert.."
'< anschalten >
addin.Connect = False
Application.StatusBar = Now &
" Afo wurde deaktiviert"
Exit Sub 'abbruch
'</ anschalten >
End If
Next
MsgBox "Afo
Addin wurde nicht gefunden", vbInformation, "AfO check"
Application.StatusBar = Now & " Afo Addin nicht
gefunden."
'------------</ SAP_Analysis_deaktivieren() >------------
End Sub
Public Sub SAP_Daten_aktualisieren()
'------------< SAP_Daten_aktualisieren() >------------
Application.StatusBar = Now & " Daten auf Afo-Blättern werden
aktualisiert.."
DoEvents
Dim sap_Result As Long
sap_Result =
Application.Run("SAPExecuteCommand", "Refresh") ', "All"
If sap_Result <> 0 Then
Application.StatusBar = Now & " Problem beim Aktualisieren
der SAP Daten "
MsgBox
"Fehler beim Aktualisieren der SAP Daten. SAPCode= " &
sap_Result, vbCritical
Else
Application.StatusBar = Now & " Fertig: SAP Daten wurden
erfolgreich aktualisiert "
End If
'------------</ SAP_Daten_aktualisieren() >------------
End Sub
|