Hallo,

ich habe hier ein Problem (in einer Function):

ich durchlaufe einen Bereich und untersuche diesen. Bei Übereinstimmung mit einem Wert soll in einem anderen, genauso strukturierten Bereich, ein Wert eingetragen werden:
If rng.Value = bytMonat(i) Then
objProzent.Cells(j).Value = dblProzentF(i)
End If
Hier kommt aber ein Fehler. Woran liegt denn das? Oder geht das in einer Function nicht?

Hier der gesamte Code:




j = 0
For Each rng In objMonths.Cells
For i = 0 To UBound(strArt)
If strArt(i) = "F" Then
If rng.Value = bytMonat(i) Then
objProzent.Cells(j).Value = dblProzentF(i)
End If
End If
Next
j = j + 1
Next


Danke

Begges