BAPI aus VBA // Leere Tabelle bei wiederholtem Sub-Aufruf

Code: Alles auswählen.

Sub WerteVonStoffLaden(Nummer As String) 'Hier wird jeweils eine andere Nummer übergeben
    Set func = Nothing 'auch die Variable komplett zu löschen, bringt nichts
    Set func = SAPBAPIControl.Add("BAPI_BUS1077_GETDETAIL")
    func.exports("FLG_PROP_DATA") = "X" 'dieser Parameter ist richtig gefüllt. Habe es mit Stringvariable = func.exports("FLG_PROP_DATA") überprüft.

    Set otemp = Nothing
    Set otemp = func.Tables("SUB_HEADER")
    otemp.freetable
    otemp.AppendRow
    otemp(1, "SUBSTANCE") = Nummer 'Auch diese Tabelle ist richtig gesetzt.
    
    returnFunc = func.call
        
    If returnFunc = True Then
        Dim objTable As Object
        Set objTable = func.Tables("PROP_COMPONENT") 'func.Tables("PROP_COMPONENT") bleibt bei einer neuen Nummer leer
      
        For i = 1 To objTable.RowCount
            For y = 1 To objTable.ColumnCount
                Sheets("SAPLesen").Cells(i, y) = objTable.Cell(i, y)
            Next y
        Next i
    End If
End Sub