kleurcode als variabele toe kunnen passen in macro (tabelstijl)

[Jolte]

Ik wil graag dat de kleurcode 6299648 als variabele toegepast wordt in onderstaande macro.
Hoe definieer ik de kleurcode? en hoe verwerk ik dat in onderstaande macro?

sub Test()
ActiveWorkbook.DefaultTableStyle = "Test"
With ActiveWorkbook.TableStyles("Test").TableStyleElements( _
xlWholeTable).Borders(xlEdgeTop)
.Color = 6299648
.TintAndShade = 0
.Weight = xlThin
.LineStyle = xlNone
End With
End sub

 

[cow18]

kies 1 van de 3 manieren om je kleur te bepalen en daarna wordt die voor je color gebruikt

Sub Test()
   kleur = Sheets("blad1").Range("A1").Value
   kleur = 6299648
   kleur = RGB(155, 155, 155)

   ActiveWorkbook.DefaultTableStyle = "Test"
   With ActiveWorkbook.TableStyles("Test").TableStyleElements( _
        xlWholeTable).Borders(xlEdgeTop)
      .Color = kleur
      .TintAndShade = 0
      .Weight = xlThin
      .LineStyle = xlNone
   End With
End Sub

 

[Jolte]

bedankt! dit kan ik volgen en toepassen.

maar hoe definieer ik de variabele 'kleur'?

ik krijg namelijk een foutmelding omdat bovenstaande niet heeft plaatsgevonden

 

[HSV]

Je kan 'Otion explicit' weghalen of er een apostrof voor zetten.

Declareren:

Je kan alles als Long declareren of als Variant.
Alhoewel de eerste aangeeft dat het een Double is.

Dim Kleur
Dim Kleur as Variant (hetzelfde als Dim Kleur).
Dim Kleur as long