|
Hallo,
meine Problemstellung:
Ich habe eine Excel die Daten aus SAP zieht und in eine Tabelle schreibt. Nachdem die Daten gezogen wurden, möchte ich diese nun mit einer MatNr Liste in Excel vergleichen und nur die Datensätze schreiben, die die selbe MatNr enthalten. Hier der Codeabschnitt zum Schreiben, der Rest ist unwichtig:
Dim i, x As Integer
Dim strDataRow As String
Dim DataRow As Variant
For i = 1 To tableData.rowCount
strDataRow = tableData(i, 1)
DataRow = Split(strDataRow, "|")
'Spaltenüberschriften
For x = 0 To UBound(DataRow)
Tabelle1.Cells(1, x + 1).Value = tableFields(x + 1, 1)
Next x
'Datensätze
If DataRow(0) = Tabelle1.Cells(i+1, 5).Value Then
For x = 0 To UBound(DataRow)
Tabelle1.Cells(i + 1, x + 1).Value = DataRow(x)
Next x
Else
GoTo Sprungmarke:
End If
Sprungmarke:
Next i
Bis zum Kommentar Datensätze funktioniert alles. Aber in der markierten Zeile werden nur Daten in die Tabelle geschrieben,
wenn ich die Materialnummer als Vergleichswert angebe. Wenn ich diese Versuche als Zeilenbezug anzugeben, funktioniert der Abschnitt nicht mehr.
If DataRow(0) = 10304 Then --> Klappt
If DataRow(0) = Tabelle1.Cells(i+1, 5).Value Then --> Klappt nicht
Vielleicht kann mir hier jemand helfen. Ich danke im voraus für jegliche Hilfe.
|