Re: Excel-macro probleempje

Article View: be.comp.programming

Article #16251

Back to be.comp.programming Previous Next

#16251

From: ICHAU
Date: Fri, 26 May 2000 00:00

35 lines
1406 bytes

Hoi Kris,

Volgens mij moet dit werken:

Sub Macro1()
    Dim MijnBereik As String
    Dim MijnAantal
    MijnAantal = InputBox("Geef het aantal te verwerken rijen.", "Rijen
verwerken", 1)
    MijnAantal = MijnAantal + 13
    MijnBereik = "F13:O" & CStr(MijnAantal)
    Range(MijnBereik).Select
End Sub

succes en groetjes,
Jos

Kris Vermandere heeft geschreven in bericht
<392e465f.1908325@news.tijd.com>...
>Hallo,
>
>ik wil in een excel blad een bereik selecteren, afhankelijk van een
>ingegeven aantal rijen.  Dit wil ik dus doen met een macro.  Kan
>iemand mij zeggen hoe ik dit kan doen?  Wat ik tot nu toe heb is het
>volgende, maar dit werkt dus niet :
>
>    aantal = InputBox("Geef het aantal te verwerken rijen.", "Rijen
>    verwerken", 1)
>    aantal = aantal + 13
>    Range("F13:Oaantal").Select
>
>Ik moet dus een manier vinden om in Range.select de waarde aantal in
>te vullen achter de 'O'.
>
>Kan iemand mij hiermee helpen?

Technical Details

Message-ID: <8gm1l7$cnf$1@trex.antw.online.be>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <392e465f.1908325@news.tijd.com>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,fe0f45efc16b7aca
X-Google-Attributes: gidfcea4,public
From: "ICHAU" <ichau@glo.be>
Subject: Re: Excel-macro probleempje
Date: 2000/05/26
Message-ID: <8gm1l7$cnf$1@trex.antw.online.be>
X-Deja-AN: 627608615
References: <392e465f.1908325@news.tijd.com>
Organization: ISB
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
Newsgroups: be.comp.programming

Reply to Parent Message