error 6 tijdens uitvoering (Visual basic)

[Peter]

L.S.

Bij het "runnen" van een word97 macro (office97 sr2)
krijgen we de volgende microsoft visual basic error:

Fout 6 tijdens uitvoering
Overloop
Vanaf de begin waarden 33000 krijgen we de foutmelding.
Gebruiken we de beginwaarden bv vanaf 32000 dan loopt de
macro gewoon door.

Dim HomeDirectory As String
Dim Invulrange As String
Dim NummerBegin As Integer
Dim NummerEind As Integer

code waarop de macro blijft hangen:
NummerBegin = FrmNummering.txtBegin.Value

algemeen:
De macro heeft 2 invul vensters tbv invullen van
nummerieke waarden. txtBegin en txtEnd. Door op oke te
klikken krijgt men de oplopende nummers vanaf invulling 1e
waarden tot aan de waarde die men in veld txtEnd heeft
ingevuld.

Wie kan ons helpen
Bijvoorbaad Dank

[Ingrid Baplue]

De grootste waarde voor een integer is 32.767, daarboven zal je dus een
foutmelding krijgen. Je zal de declaratie van NummerBegin en NummerEind
moeten aanpassen naar Long.

--
Ingrid Baplue
Microsoft MVP - Excel
http://users.pandora.be/ingrid/excel/

Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Peter schreef in news:066e01c39fca$03eb7a80$a001...@phx.gbl

[Peter]

Ingrid bedankt voor je tip.

Heb de macro ook in office XP uitgeprobeerd. Ook daar
wordt als tip aangegeven om de gegevenstype te
veranderen. in as Long zowel bij Dim NummerBegin As als
bij Dim NummerEind.
Uitgetest en het werkte.

>-----Oorspronkelijk bericht-----

>.
>