Hi
De code doet wat ze moet doen.
Maar als de for each voor de 2de x doorlopen word moeten de variable strKolomJaar strKolomWaarde veranderen van j ,k naar m,n
Heb dit nu in de for each lus staan. Maar als de for each voor de 2de x woord doorlopen dan leest hij ook de strKolomJaar strKolomWaarde 2 x
IS daar een beter oplossing voor om dit te voorkomen
Spring nu uit de loop bij de 2de x doorlopen van de for each juist voor het lezen strKolomJaar strKolomWaarde
Kan dit netter worden opgevangen of is dit de beste oplossing
Al vast bedankt voor de help
De code doet wat ze moet doen.
Maar als de for each voor de 2de x doorlopen word moeten de variable strKolomJaar strKolomWaarde veranderen van j ,k naar m,n
Heb dit nu in de for each lus staan. Maar als de for each voor de 2de x woord doorlopen dan leest hij ook de strKolomJaar strKolomWaarde 2 x
IS daar een beter oplossing voor om dit te voorkomen
Spring nu uit de loop bij de 2de x doorlopen van de for each juist voor het lezen strKolomJaar strKolomWaarde
Kan dit netter worden opgevangen of is dit de beste oplossing
Code:
strKolomJaar = "j" ' letter van de kolom voor het jaartal
strKolomWaarde = "k" ' letter van de kolom voor de waarde
IntLaatsteRij = Worksheets("datablad").Cells(Rows.Count, "j").End(xlUp).Offset(1, 0).Row
For Each Elkecel In Range("c33,c46")
Worksheets("datablad").Range(strKolomJaar & IntLaatsteRij).Formula = CStr("=Year(Now()) - 1") 'Jaartal vorige jaar
If IsEmpty(Worksheets("datablad").Range(Elkecel.Address)) Then
Worksheets("datablad").Range(strKolomWaarde & IntLaatsteRij).Value = 0
Else
Worksheets("datablad").Range(Elkecel.Address).Copy Destination:=Worksheets("datablad").Range(strKolomWaarde & IntLaatsteRij)
End If
If Elkecel.Address = "$C$46" Then Exit For ' anders word onderstaande waarde 2 x gelezen wat niet erg is maar niet nodig
strKolomJaar = "m" ' letter kolom voor het jaartal
strKolomWaarde = "n" ' kolom voor de waarde
Al vast bedankt voor de help