Dim i As Integer = 0
 
        For Each dr As DataRow In APICall.APIDataTable.Rows
            ItemNrInt = DataGridView_Lagerbestand.CurrentRow.Cells.Item( _
              "ItemNrInt").Value.ToString
            APICall.APICall_Artikeldetails("https://XXXXXXXXXXXXXX/", _
            Form1.LagerbestandUser, Form1.LagerbestandPasswd, "XXXGetItemInfo", _
            "ItemNrInt", ItemNrInt)
            DataGridView_Artikeldetails.DataSource = ds_rowset_ArtDet.Tables(0)
            ItemName = DataGridView_Artikeldetails.CurrentRow.Cells.Item( _
              "ItemName").Value.ToString
            DataGridView_Lagerbestand.CurrentCell = _
            DataGridView_Lagerbestand.Rows(i).Cells(0)
 
            i = i + 1
 
        Next