In een bestaand excel sheet iets veranderen met Vba code.

[flyertje007]

Beste,
Geachte,

Ik zou graag via vba code het volgende doen:

In een bestaand excel werkblad zoek ik naar de hoogte waarde van een getal(nummer) in rij 2.
Eens dit gevonden wil ik dat hij onderaan de rij bij de eerste lege cel het volgende zet.
Via vba vraag stellen hoeveel ik er wil bijmaken:
voorbeeld 5: dan zoekt hij naar het hoogste getal in kolom 2(vb 23569) en zet bij eerst volgende lege cel (onder alle waarden) in kolom 2 waarde 23569, daaronder 23570, 23571, 23572, 23573 tot hij 5 nieuwe waarden heeft gezet in kolom 2.
voorbeeld: bij 15 moet hij 15 nieuwe opeenvolgende waarden zetten.

Hoe los ik dit best op?

Bedankt op voorhand.

Met vriendelijke groet,
flyertje007

 

[HSV]

Misschien moet je de +1 er maar uitgooien.

Sub hsv()
Dim hoogstewaarde As Long, aantal As Long
 hoogstewaarde = Application.Max(Columns(2))
 aantal = Application.InputBox("hoeveel", "Vul een getal in", , , , , , 1)
     With Cells(Rows.Count, 2).End(xlUp)
       .Offset(1) = hoogstewaarde + 1
       .Offset(1).Resize(aantal).DataSeries , -4132
     End With
End Sub

 

[flyertje007]

Bedankt Harry,

Werkt nu perfect.