Schleife ermittelt keine Werte
29.10.2003 11:29:30
Frederik Fuhrmann
Ich möchte durch eine Schleife den Wert für die Variable "FRTG_FUR" aufsummieren:
For Each c In Range...
For Each c² In Range...
For Each c³ In Range...
If c³ = c & c² Then
FRTG_FUR = FRTG_FUR + c³.Offset(0, 5)
End If
Next c³
Next c²
Next c
(Range...) steht für jeweils eine andere Spalte in der mehrere Werte stehen.
Die verschiedenen Werte aus den Spalten zusammengestellt (c & c2) ergeben immer ein Suchkriterium in der Spalte dessen Wert aus .offset... ich haben möchte.
Lasse ich nun das ganze im Einzelschrittmodus ablaufen funktioniert es, ansonsten wird immer nur der Wert des ersten gefundenen Kriteriums genommen!
Hoffe mir kann jemand helfen!
Gruß
Frederik
Anzeige