ich habe ein Script aufgezeichnet, welches leider nicht richtig funktioniert und SAP + Excel zum Absturz bringt.

Konkrekt möchte ich per MM01 automatisiert Teilenummern anlegen. Per VBA in Excel starte ich SAP -> System P01 -> Transaktion MM01 und lasse per Schleife alle zuvor in der Exceltabelle eingetragenen Teilenummern eintragen.

Dies funktioniert soweit recht gut so lange ich mich mit der Enter Taste im Programmiertext, also mit

session.findById("wnd[0]").sendVKey 0[/code] bewege und die ganzen Pflichtfelder befüllen lasse.
Das läuft für 1000 Teilenummern einwandfrei durch so lange ich keinen Reiter direkt anspreche.

Hier nun mein Problem:

Folgender Programmiertext, Zeile 3 klappt nicht immer beim auswählen des Reiters:

[code=vb]
....
session.findById("wnd[0]/tbar[1]/btn[30]").press 'Wählt den Button "Zusatzdaten"
session.findById("wnd[0]/usr/tabsTABSPR1/tabpZU05").Select 'Wählt den 5. Reiter "Grunddatentext" aus
session.findById("wnd[0]/usr/tabsTABSPR1/tabpZU05/ssubTABFRA1:SAPLMGMM:2110/subSUB2:SAPLMGD1:2031/cntlLONGTEXT_GRUNDD/shellcont/shell").Text = Variable_Grunddatentext
session.findById("wnd[0]/tbar[0]/btn[11]").press 'Enter zum SPEICHERN
....

Irgendwie scheint das Auswählen von Reitern ein grundsätzliches Problem zu sein. Da es ja ein paar mal in der Schleife funktioniert, verhaspelt sich SAP irgendwie. Ich habe aber auch schon in VBA mittels Application.Wait Pausen eingebaut, dies bringt aber leider keinen Erfolg.

Kann mir irgendjemand sagen ob wer das gleiche Problem hat und wie ich dies beheben kann?

Vielen Dank für jeden Ratschlag, ich bin wirklick am verzweifeln.. 😕

Registername = "Zentrale Daten"

For t = z To 1 'Erste Registerzahl

For k = x To 9 'zweite Registerzahl

register_Tab = "tabpSCREEN_1100_TAB_" & t & k 'Register zusammengesetzt

register_Dynpro = Session.FindById("wnd[0]/usr/subSCREEN_3000_RESIZING_AREA:SAPLBUS_LOCATOR:2036/subSCREEN_1010_RIGHT_AREA:SAPLBUPA_DIALOG_JOEL:1000/ssubSCREEN_1000_WORKAREA_AREA:SAPLBUPA_DIALOG_JOEL:1100/ssubSCREEN_1100_MAIN_AREA:SAPLBUPA_DIALOG_JOEL:1101/tabsGS_SCREEN_1100_TABSTRIP/" & register_Tab).Text ' RegisterID

If register_Dynpro = Registername Then

Session.FindById("wnd[0]/usr/subSCREEN_3000_RESIZING_AREA:SAPLBUS_LOCATOR:2036/subSCREEN_1010_RIGHT_AREA:SAPLBUPA_DIALOG_JOEL:1000/ssubSCREEN_1000_WORKAREA_AREA:SAPLBUPA_DIALOG_JOEL:1100/ssubSCREEN_1100_MAIN_AREA:SAPLBUPA_DIALOG_JOEL:1101/tabsGS_SCREEN_1100_TABSTRIP/" & register_Tab).Select

GoTo Erfassung

End If

Next

x = 0 'Wichtig, weil sonst Registernummer 10 übersprungen werden würde

Next