*

Help!

Problemen met uw pc? De vrijwilligers van oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Recent

Auteur Topic: excel macro  (gelezen 1281 keer)

Offline meey

  • Nieuw lid
  • Berichten: 6
  • Geslacht: Vrouw
  • Oplossing.be
excel macro
« Gepost op: 08 mei 2017, 23:37:20 »
Sub kleuren()

For i = 3 To 14
Range("actReg").Value = Range("KleurenMacros!A" & i).Value
ActiveSheet.Shapes(Range("actReg").Value).Select (deze werkt niet kan iemand zeggen wat er fout is, is geel gearceerd)

Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("actRegCode").Value).Interior.Color

Next i

Range("A5").Select
End Sub

Alles werk behalve dus ActiveSheet


Offline meey

  • Nieuw lid
  • Berichten: 6
  • Geslacht: Vrouw
  • Oplossing.be
Re: excel macro
« Reactie #1 Gepost op: 09 mei 2017, 10:56:43 »
Gevonden!

Offline SoftAid

  • Globale Moderator
  • Ambassadeur
  • *****
  • Berichten: 16.244
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: excel macro
« Reactie #2 Gepost op: 09 mei 2017, 12:05:39 »
Hallo meey,

Waarschijnlijk was "actReg" een benoemd bereik, en was dat het struikelblok.
Daarom is het ook altijd zo nuttig om een voorbeeldbestandje bij te voegen, zegt zo veel meer dan een vraag alleen  ;)

:) SoftAid :)             
Vul je systeemgegevens in: (Klik hier!)

GIGABYTE P67A-UD4-B3 - Intel(R)Core(TM) i7-2600 CPU@3.4GHz
Kingston - 8 GB 1333MHz DDR3 Non-ECC DIMM
EVGA GeForce GTS450 1GB
1- KINGSTON V300 SSD 240 GB 
2- OCZ Vertex III  SATA SSD 3 120 GB
3- WDC SATA 1TB
4- Externe 2TB
2 x SM2443BW/24" LCD 1920X1200 DV
Win 7 PRO SP1 64-bit NL
Office 2007 + 2003 NL SP3   WLM   Chrome
AVAST

 


www.combell.com