Foutmelding Select Range

G. Sanders

unread,

Aug 28, 2004, 9:03:18 AM8/28/04

to

Beste mensen,

U ziet hier een eerste stukje van een macro, die ik heb gemaakt:

ChDir ThisWorkbook.Path
Workbooks.Open Filename:="Uitslagtabel.xls"
Sheets("Uitslag").Select
Range("C2:C5").Select
Selection.Copy
Windows("Resultaten.xls").Activate
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Deze macro, die nog een paar van deze opdrachten bevat, werkt prima. Maar nu
wil ik diezelfde reeks opdrachten aan een programmaknop (via
werksetbesturingselementen) toevoegen en dan krijg ik een foutmelding:

Fout 1004 tijdens uitvoering:
Methode Select van klasse Range is mislukt.

Waarom als macro wel en als knopopdracht niet? Ik weet dat ik een macro aan
een knop kan binden. Maar zo moet het toch ook lukken?

Gerard
--
gsand...@home.nl (zonder cijfers)
http://members.home.nl/gsanders/

PeterS

unread,

Aug 28, 2004, 9:28:30 AM8/28/04

to

Gerard,

Ik denk dat het wel lukt, als je alles weer terug zet in een sub, en achter de
knop naar die sub verwijst.

Zolang je nl. binnen het knop-event werkt, blijft die actief en krijg je
moeilijkheden met selecteren.

--
Peter

> G. Sanders tikte:

»

Ronald

unread,

Aug 28, 2004, 9:37:10 AM8/28/04

to

Hallo Gerard,

Probeer het is door de macro in Module1 te zetten en de
volgende opdracht bij de knop te zetten:
Application.Run "Module1.MyMacroName" 'Verwijzing naar de
macro die uitgevoerd moet worden

Groeten Ronald.

>.
>

PeterS

unread,

Aug 28, 2004, 9:42:14 AM8/28/04

to

probeer anders eens iets als:

ChDir ThisWorkbook.Path
Workbooks.Open Filename:="Uitslagtabel.xls"

Thisworkbook.Activate

Range("D2:D5").FormulaR1C1 = "=[Uitslagtabel.xls]Uitslag!RC[-1]"
Range("D2:D5") = Range("D2:D5").Value

--
Peter

> G. Sanders tikte:

> Beste mensen,

»

PeterS

unread,

Aug 28, 2004, 9:45:06 AM8/28/04

to

Application.Run is onnodig als de macro in het zelfde werkboek staat.

Module1.MyMacroName of MyMacroName volstaat

--
Peter

> Ronald tikte:

»

Ingrid Baplue

unread,

Aug 28, 2004, 9:52:20 AM8/28/04

to

Vervang

Sheets("Uitslag").Select
Range("C2:C5").Select
Selection.Copy
Windows("Resultaten.xls").Activate
Range("D2").Select

Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False

door
Sheets("Uitslag").Range("C2:C5").Copy
Windows("Resultaten.xls").Activate
Range("D2").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False

De methode Select moet je zo veel mogelijk proberen te vermijden.

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

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

G. Sanders schreef in cgpvrr$fk5$1...@news1.tilbu1.nb.home.nl

Ronald

unread,

Aug 28, 2004, 9:57:36 AM8/28/04

to

Bedankt Peter, toch weer iets geleeerd.

>.
>

PeterS

unread,

Aug 28, 2004, 10:13:32 AM8/28/04

to

Ach, Ronald.

Wat bijleren betreft, lijkt excel een bodemloze put :-))

--
Peter

> Ronald tikte:

»

G. Sanders

unread,

Aug 30, 2004, 4:45:14 AM8/30/04

to

Allen hartelijk dank voor de reacties. ik heb de oplossing van Ingrid
gebruikt, omdat dat weer een paar regels scheelde.

Gerard
--
gsand...@home.nl (zonder cijfers)
http://members.home.nl/gsanders/

"Ingrid Baplue" <ingrid_bap...@hotmail.com> schreef in bericht
news:OhiV4YQj...@TK2MSFTNGP10.phx.gbl...