macro for pulling data from SAP works but doesn't as loop

I have the following macro to pull data from SAP and want to loop it
But as soon as i loop it even the first row doesnt work anymore

I hope someone can tell me where im wrong

Dim CellValue As String
Dim SAPBestand As String
Dim Counter As Integer


CellValue = Range("A20").Value

oSession.StartTransaction ("MD04")

oSession.FindById("wnd[0]").ResizeWorkingPane 150, 17, False
oSession.FindById("wnd[0]/tbar[0]/okcd").Text = "md04"
oSession.FindById("wnd[0]").SendVKey 0
oSession.FindById("wnd[0]/usr/tabsTAB300/tabpF01/ssubINCLUDE300:SAPMM61R:0301/ctxtRM61R-MATNR").Text = CellValue
oSession.FindById("wnd[0]/usr/tabsTAB300/tabpF01/ssubINCLUDE300:SAPMM61R:0301/ctxtRM61R-BERID").Text = "1301"
oSession.FindById("wnd[0]/usr/tabsTAB300/tabpF01/ssubINCLUDE300:SAPMM61R:0301/ctxtRM61R-BERID").SetFocus
oSession.FindById("wnd[0]/usr/tabsTAB300/tabpF01/ssubINCLUDE300:SAPMM61R:0301/ctxtRM61R-BERID").CaretPosition = 4
oSession.FindById("wnd[0]/tbar[0]/btn[0]").Press
oSession.FindById("wnd[0]/usr/subINCLUDE1XX:SAPMM61R:0750/tblSAPMM61RTC_EZ/txtMDEZ-MNG02[9,0]").CaretPosition = 13


SAPBestand = oSession.FindById("wnd[0]/usr/subINCLUDE1XX:SAPMM61R:0750/tblSAPMM61RTC_EZ/txtMDEZ-MNG02[9,0]").Text
ThisWorkbook.Worksheets("Versorgung Montage").Activate

Range("I20").Select
ActiveCell.FormulaR1C1 = SAPBestand






But as soon as i try this it doesnt work:



Dim CellValue As String
Dim SAPBestand As String
Dim Counter As Integer


'Dim C As Range
For Each C In Range("A20:A74")

C.Select
CellValue = ActiveCell.Value

oSession.StartTransaction ("MD04")

oSession.FindById("wnd[0]").ResizeWorkingPane 150, 17, False
oSession.FindById("wnd[0]/tbar[0]/okcd").Text = "md04"
oSession.FindById("wnd[0]").SendVKey 0
oSession.FindById("wnd[0]/usr/tabsTAB300/tabpF01/ssubINCLUDE300:SAPMM61R:0301/ctxtRM61R-MATNR").Text = CellValue
oSession.FindById("wnd[0]/usr/tabsTAB300/tabpF01/ssubINCLUDE300:SAPMM61R:0301/ctxtRM61R-BERID").Text = "1301"
oSession.FindById("wnd[0]/usr/tabsTAB300/tabpF01/ssubINCLUDE300:SAPMM61R:0301/ctxtRM61R-BERID").SetFocus
oSession.FindById("wnd[0]/usr/tabsTAB300/tabpF01/ssubINCLUDE300:SAPMM61R:0301/ctxtRM61R-BERID").CaretPosition = 4
oSession.FindById("wnd[0]/tbar[0]/btn[0]").Press
oSession.FindById("wnd[0]/usr/subINCLUDE1XX:SAPMM61R:0750/tblSAPMM61RTC_EZ/txtMDEZ-MNG02[9,0]").CaretPosition = 13


SAPBestand = oSession.FindById("wnd[0]/usr/subINCLUDE1XX:SAPMM61R:0750/tblSAPMM61RTC_EZ/txtMDEZ-MNG02[9,0]").Text
ThisWorkbook.Worksheets("Versorgung Montage").Activate

C.Offset(0, 7).Select
ActiveCell.FormulaR1C1 = SAPBestand
Next C

What happens when you step through it using F8? If that works OK then it could be the processing of the loop in real time is too fast for the SAP SendVKey commands and you might need to put in a wait function. I would also advise against selecting cells ... slight tweaks below.

Please Login or Register  to view this content.