for each rng in object.cells PROBLEM
09.07.2003 10:03:13
Begges
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