Hab dir hier mal ne Lösung gepostet:
Sub etc2()
Set SapGuiAuto = GetObject("SAPGUI") 'Get the SAP GUI Scripting object
Set SAPApp = SapGuiAuto.GetScriptingEngine 'Get the currently running SAP GUI
Set SAPCon = SAPApp.Children(0) 'Get the first system that is currently connected
Set session = SAPCon.Children(0) 'Get the first session (window) on that connection
session.findById("wnd[0]").resizeWorkingPane 144, 18, False
session.findById("wnd[0]/tbar[0]/okcd").Text = "/nlt22"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/btn%_T3_LGTYP_%_APP_%-VALU_PUSH").press
startinexcel = 5
zaehler = 0
Stop
For no = 0 To 20
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1," & zaehler & "]").Text = Cells(startinexcel, 2)
zaehler = zaehler + 1
If zaehler > 6 Then
Stop
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1," & zaehler & "]").SetFocus
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1," & zaehler & "]").caretPosition = 0
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE").verticalScrollbar.Position = no
zaehler = 1
End If
startinexcel = startinexcel + 1
Next no
End Sub