Goedemorgen allen,
Ik loop al de hele ochtend (sinds 5u vanmorgen) tegen een hindernis aan bij het uitvoeren van mijn WERKBLAD-macro.
Mijn origineel code-blok werkte perfect en zag er als volgt uit :
For zoekkol = 2 To 32
If .Cells(zoekrij, zoekkol) <> "" Then
zkaant = .Cells(zoekrij, zoekkol)
zkart = .Cells(2, zoekkol)
dlaant = zkaant * braant
doelrij = Cells(Rows.Count, 10).End(xlUp).Row + 1
Cells(doelrij, 10) = dlaant
Cells(doelrij, 11) = zkart
End If
Next zoekkol
Echter had ik dan het fenomeen dat wanneer het "zkart" meerdere keren voorkwam (met telkens een ander "dlaant") dit ook meerdere keren werd weggeschreven.
Bedoeling is echter dat in dat geval het "zkart" maar één keer voorkomt en dat het "dlaant" telkens word bijgeteld bij het reeds vermelde.
Ik probeer dus al een hele ochtend het code-blok dusdanig aan te passen maar ik krijg dan telkens de melding "subscript valt buiten bereik".
For zoekkol = 2 To 32
If .Cells(zoekrij, zoekkol) <> "" Then
zkaant = .Cells(zoekrij, zoekkol)
zkart = .Cells(2, zoekkol)
dlaant = zkaant * braant
doelrij = Cells(Rows.Count, 10).End(xlUp).Row + 1
If doelrij >= 4 Then
vind = Columns(11).Find(zkart, LookIn:=xlValues, LookAt:=Whole).Row
If Cells(vind, 11) <> "" And Cells(vind, 11) = zkart Then
tmp = Cells(vind, 10)
Cells(vind, 10) = tmp + dlaant
Else
Cells(doelrij, 10) = dlaant
Cells(doelrij, 11) = zkart
End If
End If
End If
Next zoekkol
Als ik 'stap voor stap' door de code loop geeft hij die foutmelding zodra ik het lijntje vind = Columns(11).Find(zkart, LookIn:=xlValues, LookAt:=Whole).Row
wil laten verwerken.
Ik lijk de oorzaak maar niet te vinden....
Alvast dank voor tips/hulp...
groetjes,
BlackDevil