Auteur Topic: VBA code voor omkadering (gelezen 1846 keer)

rdcoster · « **Gepost op:** 24 december 2018, 06:46:40 »

Hello,
Ik ben nieuw op dit forum en heb volgende vraag:

Kan ik een range op een ander tabblad omkaderen door een eenvoudige code zonder dat het tabblad zichtbaar wordt.?
Ik heb op Blad2-Range ("D5:E10") omkaderd via 'Macro opnemen' maar dit genereert 10-tallen lijnen met code .
Kan dit eenvoudiger?

Ex-lid · « **Reactie #1 Gepost op:** 24 december 2018, 08:37:43 »

Deze maakt een dikke rand in het zwart.
Verander de colorindex voor een ander kleur. (vb 3 = rood)
Verander xlThick in xlThin voor een dunne lijn.

Code: [Selecteer]

Sub Dotch()
Worksheets("Blad2").Range("D5:E10").BorderAround ColorIndex:=1, Weight:=xlThick
End Sub

rdcoster · « **Reactie #2 Gepost op:** 24 december 2018, 10:18:36 »

Fantastisch !
Dit is wat ik zocht.

Toch nog een vraag:
Nu worden de omtrek omkaderd... kan dit ook voor alle individuele cellen binnen het bereik ?

Ex-lid · « **Reactie #3 Gepost op:** 24 december 2018, 10:53:43 »

Code: [Selecteer]

Sub dotch() 
With Sheets("Blad2").Range("D5:E10").Borders
    .LineStyle = xlContinuous
    .Color = vbRed
    .Weight = xlThin
End With
End Sub

of

Code: [Selecteer]

Sub lijn()
    Sheets("Blad2").Range("D5:E10").Borders.LineStyle = xlContinuous
End Sub

voor een gewoon zwart lijntje.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: VBA code voor omkadering (gelezen 1846 keer)

rdcoster

VBA code voor omkadering

Ex-lid

Re: VBA code voor omkadering

rdcoster

Re: VBA code voor omkadering

Ex-lid

Re: VBA code voor omkadering