Excel - Een macro om een celverwijzing te vergroten

Kwestie

Ik wil een macro die bij openen de celverwijzing in een cel met 11 verhoogt telkens wanneer het boek wordt geopend, dwz cel C18 heeft = Blad2! H2. De volgende keer dat het wordt geopend, wil ik dat het wordt gewijzigd in = Blad2! H13 en dan in de volgende open = Blad2! H24 etc.

Oplossing

Ervan uitgaande dat de cel waarin de formule is C18 (verander de code om de juiste cel weer te geven)

 Sub Auto_Open () Dim current Current Als string Dim sTemp As String sTemp = Range ("C18"). Formula Do While (IsNumeric (Right (sTemp, 1))) currentRow = Right (sTemp, 1) & currentRow sTemp = Mid (sTemp, 1, Len (sTemp) - 1) Lus currentRow = CLng (currentRow) + 11 Range ("C18"). Formula = sTemp & currentRow End Sub