Office: SAP Transaktion m. Zeichnung aufrufen

Guten Morgen in die Runde,

vllt könnt ihr mir mal wieder helfen!
Generell erst mal die Frage, ob mein Anliegen überhaupt funktioniert?

Ich habe eine Excel-Tabelle mit Art.Nr.(untereinander stehend)! Wenn eine Zelle mit Art.Nr aktiv ist, möchte ich einen Button Klicken betätigen können bei dem dann eine SAP Transaktion gestartet wird und dann die Art.Nr. reinkopiert wird, so dass ich mir die Zeichnung anschauen kann.
Diese Liste liegt auf dem Server und muss von anderen PC`s verwaltet werden.

Ist dies möglich? Und wenn, wie?

Gruß
Hauenkrieger

:)

 

Hallo,

wie soll es denn funktionieren? Steht die ArtikelNr. nun schon da oder willst Du Sie reinkopieren (siehe oben)?
Was sind das für Zeichnungen-Format etc.

 

Hallo,

vielen Dank schon mal für die Antwort.

Zu deinen Fragen,
Die Zellen sind mit der Art.Nr. gefüllt! Wenn ich eine Zelle anklicke, und ich dann den Button betätige, soll SAP mit Transaktion (CV04N) gestartet werden, die Art.Nr. aus der ausgewählten Zelle kopiert und in das Feld für Art.Nr(SAP) eingefügt werden.

Die Zeichnungen sind im SAP als PDF.-hinterlegt.

Gruß
Hauenkrieger

 

Hallo,
ich kann Dir leider nicht helfen da mir nicht bekannt ist wie von Excel aus eine SAP Transaktion (CV04N) gestartet wird bzw. ob das überhaupt geht.
Das aufrufen eines PDF ist jedoch, falls der Pfad dazu ermittelt werden kann, kein großes Problem.

 

Hallo Hauenkrieger,

habe gerade folgendes gefunden http://forum.cad.de/foren/ubb/Forum2...L/001657.shtml und bei mir von CS12 auf MM03 abgewandelt.

PHP:

         Sub Call_mm03()

Dim command As String
Dim SAP_Dir As String
Dim SapSys As String 'SAP-System Name

'empty cell check
If ActiveCell.Value = "" Then Exit Sub

SapSys = "XXX"                    'hier Systemnamen eintragen oder aus einer Zelle auslesen

'64bit check
If Dir("C:\Program Files (x86)\sap\frontEnd\saPgui", vbDirectory) <> vbNullString Then
SAP_Dir = "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\"
Else
SAP_Dir = "C:Program FilesSAPFrontEndSAPgui"
End If

command = """" & SAP_Dir & "sapshcut.exe"" -system=" & SapSys & " -client=001 -user=" & Environ$("Username") & " -language=DE -Command=""*MM03 RMMG1-MATNR=" & ActiveCell.Value & ";"""

Shell (command)

End Sub


 

Hallo,

tut mir leid, dass ich mich jetzt erst zurückmelde!

Hat wunderbar funktioniert! Vielen Dank dafür!

Gruß und schönen Tag noch
Hauenkrieger