vaste waarde

[ruva]

Beste excelliefhebbers,

ik heb een macro gebouwd, het enigste wat ik daar in mis is het volgende.

De macro gaat lopen met de sneltoets ctrl Q voordat de macro gaat lopen moet er een schermpje verschijnen met "vul aantal maanden in" na het intoetsen van het aantal maanden moet dmv een OK knop de macro gaan lopen, in de macro heb ik een kolom die gedeeld moet worden door het aantal maanden, dat laatste lukt me zelf wel.

Alvast bedankt voor de moeite.

groetjes Ruva

 

[Wigi]

Ruva

Sub aantalmaanden()
Dim am As Integer
am = InputBox("Geef het aantal maanden in.")

If am > 0 Then
    'jouw code
    'deel dus door am
Else: Exit Sub
End If
End Sub

Wigi

 

[ruva]

waarde

Beste Wigi

Het wil me niet lukken,

de infobox krijg ik wel, kan daar dus de aantal maanden invoeren,
met de macro gaat het fout,

Er moet bij kolom "H' 1 kolom ingevoegd worden. de waarde in kolom geef moet gedeeld worden door het aantal maanden.

Misschien kan je me nog even helpen

voor zover bedankt

 

[Roncancio]

Hallo,

Bedoel je zoiets ?

Sub aantalmaanden()
Dim AM As Integer
On Error Resume Next
AM = InputBox("Geef het aantal maanden in.")

If AM > 0 Then
Columns("H").EntireColumn.Insert
Range("H1") = Range("H1") / AM

Else: Exit Sub

End If
End Sub

Er wordt een kolom toegevoegd bij de H-kolom. Vervolgens wordt de waarde in cel H1 gedeeld door de waarde van AM. Om te voorkomen dat je een foutmelding krijgt als je per ongeluk een letter intoetst, heb ik de code aangepast.
Ik hoop dat dit is wat je zoekt.

Met vriendelijke groet,


Roncancio

 

[ruva]

waarde

Beste Wigi en Rocancio

Bedankt voor jullie reacties ik kan nu weer verder

groetjes Ruva