Quellcode der gleiche, aber trotzdem Fehler?!

Sub TEURSuchen()
Dim arrayTCVTEUR() As Integer
Dim i As Integer, j As Integer
j = 0
daten = "=("
For i = 1 To 50
If Cells(3, i).Value = "TEUR" Then
j = (j + 1)
ReDim Preserve arrayTCVTEUR(j)
arrayTCVTEUR(j) = Cells(3, i).Column
End If
Next
For i = 1 To UBound(arrayTCVTEUR)
daten = daten + ("Sheet1!R" & (zeile) & "C" & (arrayTCVTEUR(i)) & ",")
Next
daten = Left(daten, Len(daten) - 1)
daten = daten + ")"
End Sub

Sub GewichtSuchen()
Dim arrayTCVGewicht() As Integer
Dim i As Integer, j As Integer
j = 0
daten = "=("
For i = 1 To 50
!!!   If Cells(3, i).Value = "gewicht." Then
j = (j + 1)
ReDim Preserve arrayTCVGewicht(j)
arrayTCVGewicht(j) = Cells(3, i).Column
End If
Next
For i = 1 To UBound(arrayTCVGewicht)
daten = daten + ("Sheet1!R" & (zeile) & "C" & (arrayTCVGewicht(i)) & ",")
Next
daten = Left(daten, Len(daten) - 1)
daten = daten + ")"
End Sub

Sub changechart()
TEURSuchen      'alle Spalten von "TEUR" suchen
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Values = daten
GewichtSuchen   'alle Spalten mit "gewicht." suchen
ActiveChart.SeriesCollection(2).Values = daten
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = name             'Chart-Titel
End With
End Sub