🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #14836

Excel: Forms <> Control Toolbox: buttons & code

#14836
From: Alain Cloet
Date: Tue, 09 Jan 2001 19:46
41 lines
2522 bytes
Hallo,

Ik heb een vraagje.  Ik heb een macro geschreven die ik via een button wil
activeren.  Oorspronkelijk heb ik gewerkt met een uit de 'forms-toolbar', en
het werkt, maar daar de eigenschappen van deze buttons niet te wijzigen zijn
(achtergrondkleur), wou ik overschakelen op een Command_button uit 'Control
Tolbox'.  Een van de lijnen uit de macro werkt echter niet, waardoor de
uitvoering vastloopt.  In de lijn wordt de achtergrondkleur van een veld
gewijzigd, en blijkbaar lukt dit niet via Command_button (zie onder).

Iemand een idee waar dit aan ligt ?  Mijn oorspronkelijk idee was dat de
range beter diende gedefinieerd te worden door bvb de Worksheet-naam toe te
voegen, maar het hielp niet.

Groeten,
Alain
--
Ter info:

Macro met gelijkaardig gedrag (kleine, werkende code die dezelfde fout
brengt)
    Sub KleurVakje()
        Randomize
        Range("A1").Interior.ColorIndex = Int(56 * Rnd)
    End Sub
=> Werkt (rechtstreeks als macro, eventueel via een button)

    Private Sub CommandButton1_Click()
        Randomize
        Range("A1").Interior.ColorIndex = Int(56 * Rnd)
    End Sub
=> Werkt niet, geeft foutmelding:
    run-time error '1004':
    Unable to set the ColorIndex property of the Interior class

Ook een versie met een call naar de macro zelf lukt niet ... (zelfde
foutmelding, bij uitvoering van de macro)
    Private Sub CommandButton1_Click()
        Call KleurVakje
    End Sub
=> Werkt ook niet
Technical Details
Message-ID: <GOK66.1725$yz3.71267@iguano.antw.online.be>
Path: arc1-ca.pugleaf.net!supernews.google.com!sn-xit-02!supernews.com!216.227.56.88.MISMATCH!telocity-west!TELOCITY!news-out.usenetserver.com!newsfeed.icl.net!newsfeeds.belnet.be!news.belnet.be!newsfeed.online.be!iguano.antw.online.be!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,e7cb303843523c8,start
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2001-01-09 11:48:08 PST
Path: arc1-ca.pugleaf.net!supernews.google.com!sn-xit-02!supernews.com!216.227.56.88.MISMATCH!telocity-west!TELOCITY!news-out.usenetserver.com!newsfeed.icl.net!newsfeeds.belnet.be!news.belnet.be!newsfeed.online.be!iguano.antw.online.be!not-for-mail
From: "Alain Cloet" <nospam@tijd.com>
Newsgroups: be.comp.programming
Subject: Excel: Forms <> Control Toolbox: buttons & code
Lines: 45
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.3825.400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.3825.400
Message-ID: <GOK66.1725$yz3.71267@iguano.antw.online.be>
Date: Tue, 9 Jan 2001 20:46:11 +0100
NNTP-Posting-Host: 62.112.12.103
X-Complaints-To: news-abuse@noc.online.be
X-Trace: iguano.antw.online.be 979073318 62.112.12.103 (Tue, 09 Jan 2001 20:48:38 WET)
NNTP-Posting-Date: Tue, 09 Jan 2001 20:48:38 WET
Organization: Customer of TijdNet