*

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 1064 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.168
  • Geslacht: Man
  • Nobody is perfect, not even me...
    • SoftAid's Site
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 :)             
“Het onmogelijke doen we meteen, wonderen duren iets langer en op verzoek kunnen we nog toveren ook”

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

 


www.combell.com