Goeiemorgen,
Bij het schrijven van een macro heb ik een codeblokje dat zich een 17-tal keren herhaald met telkens
een ander bereik en andere waarden waarvoor ik nu al twee dagen probeer een 'loop' op te bouwen.
Ik krijg het echter niet voor elkaar om de nodige variabelen correct te benoemen.
Daarom hoop ik dat iemand hier mij op weg kan helpen om onderstaande codeblok om te bouwen tot een 'loop' :
If Cells(10, 6) = "" Then
dat2 = DateValue(dat1) + 300
Cells(10, 2) = Day(dat2)
Cells(10, 3) = Month(dat2)
Cells(10, 4) = Year(dat2)
Else
Cells(10, 2) = Cells(10, 6)
Cells(10, 3) = Cells(10, 7)
Cells(10, 4) = Cells(10, 8)
End If
If Cells(11, 6) = "" Then
dat3 = DateValue(dat2) + 300
Cells(11, 2) = Day(dat3)
Cells(11, 3) = Month(dat3)
Cells(11, 4) = Year(dat3)
Else
Cells(11, 2) = Cells(11, 6)
Cells(11, 3) = Cells(11, 7)
Cells(11, 4) = Cells(11, 8)
End If
If Cells(12, 6) = "" Then
dat4 = DateValue(dat3) + 300
Cells(12, 2) = Day(dat4)
Cells(12, 3) = Month(dat4)
Cells(12, 4) = Year(dat4)
Else
Cells(12, 2) = Cells(12, 6)
Cells(12, 3) = Cells(12, 7)
Cells(12, 4) = Cells(12, 8)
End If
If Cells(13, 6) = "" Then
dat5 = DateValue(dat4) + 300
Cells(13, 2) = Day(dat5)
Cells(13, 3) = Month(dat5)
Cells(13, 4) = Year(dat5)
Else
Cells(13, 2) = Cells(13, 6)
Cells(13, 3) = Cells(13, 7)
Cells(13, 4) = Cells(13, 8)
End If
'dit gaat zo oplopend door tem
'If Cells(26, 6) = "" Then
'dat18 = DateValue(dat17) + 300
'Cells(26, 2) = Day(dat18)
'Cells(26, 3) = Month(dat18)
'Cells(26, 4) = Year(dat18)
'Else
'Cells(26, 2) = Cells(26, 6)
'Cells(26, 3) = Cells(26, 7)
'Cells(26, 4) = Cells(26, 8)
'End If
Alvast mijn oprechte dank.
groetjes,
BlackDevil
****edit***
nog vergeten te vermelden dat de 'loop' moet stoppen eens een bepaalde datum bereikt is (afhankelijk van meerdere voorwaarden).
Er zijn dus drie mogelijke einddatums (met de variabelen 'mvrbhdat' - 'modat' - 'vodat2')
Als de resulterende datumwaarde uit de loop groter is dan de kleinste datum van de drie einddatums dan dient de loop te stoppen en de betreffende resulterende datumwaarde niet meer weggeschreven te worden.