beginnersvraagje integer optellen

[nickboon18]

Sub CommandButton1_Click()
Call optellen
End Sub

Sub optellen()
integer1 = integer1 + 1
MsgBox (integer1)
End Sub

telkens als ik de msgbox heb gehad en ik druk weer op de knop wil ik dat i hem optelt
iemand iedeetje?

 

[leofact]

Je kunt de variabele teller Public maken
Of als waarde in een cel cetten, dat heeft als voordeel dat deze bewaard wordt wanneer je excel afsluit.

Public Integer1
Sub CommandButton1_Click()
Call optellen
End Sub

Sub optellen()
integer1 = integer1 + 1
MsgBox (integer1)
End Sub

of in de cel zetten

Sub optellen()
dim iTeller as integer
iTeller = Range("teller").value
iTeller = iTeller +1 
Range("teller").value = iTeller
MsgBox (iTeller)
End Sub

mvg leo

 

[Wigi]

Deze vraag is al opgelost geworden:

http://www.worksheet.nl/forumexcel/showthread.php?p=483018

Nick, helpers kunnen het niet echt waarderen dat je zonder het te melden de vraag nog elders zet. Dan doen zij overbodig werk.

 

[Wigi]

Nick, helpers kunnen het niet echt waarderen dat je zonder het te melden de vraag nog elders zet. Dan doen zij overbodig werk.

Zoals Leo nu...

 

[leofact]

Zoals Leo nu...

is inderdaad zonde van de tijd, hoewel ik eerlijk gezegd miet bekennen, dat ik me er een paar maanden gelden ook nog schuldig aan maakte.
Hoe doe je dat trouwens Wigi, al die posts hier en ook op verschillende andere forums
Bewonderingswaardig.
mvg leo

 

[Wigi]

Hoe doe je dat trouwens Wigi, al die posts hier en ook op verschillende andere forums
Bewonderingswaardig.

Weinig slapen, zoals vannacht eigenlijk

 

[Wigi]

Nick, helpers kunnen het niet echt waarderen dat je zonder het te melden de vraag nog elders zet. Dan doen zij overbodig werk.

Nick,

Ondanks bovenstaande melding doe je bij een volgende vraag gewoon hetzelfde. Ik kan jou dat niet verbieden omdat het forum het toelaat, maar op mijn hulp moet je niet meer rekenen. Er zijn grenzen voor mij. Verder maak ik daar geen ophef rond, andere helpers moeten zelf maar beslissen wat ze doen.

Wigi