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, "|")
For x = 0 To UBound(DataRow)
Tabelle1.Cells(1, x + 1).Value = tableFields(x + 1, 1)
Next x
<em><strong>If DataRow(0) = Tabelle1.Cells(i+1, 5).Value Then</strong></em>
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.