Range foutmelding

[svekkes]

Aan allen,

Ik heb een code in vba waarmee gegevens van het ene blad naar de juiste plaats op een ander blad wordt gezet. De oude gegevens op het nieuwe blad worden dan ook steeds verwijderd. Maar niet enkel de gegevens worden verwijderd maar ook de celopmaken in die bepaalde range.
Ik heb met vallen en opstaan nu een goed werkende code gevonden, maar ik blijf steeds een foutmelding krijgen dat de range niet correct is.

Sub Knop1_Klikken()
[COLOR="Blue"]Worksheets("Facturen").Range("B23:G44").Select[/COLOR]
With Selection.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
End With
End Sub

Het stukje blauwe code is steeds verkeerd. Hoewel dit toch de juiste range is.

Hopelijk kunnen jullie eraan uit. Alvast bedankt.

 

[Wigi]

Sub Knop1_Klikken()
With Worksheets("Facturen").Range("B23:G44").Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
End With
End Sub

Wigi

 

[svekkes]

Dag Wigi,

Bedankt voor je antwoord, dit is inderdaad een oplossing. Maar ik zat te denken en is het ook mogelijk om deze code (dient om de gegevens te wissen) aan te passen zodat enkel de gegevens worden gewist en niet de celopmaak van deze range?

Worksheets("Facturen").Range("B23:G44").Clear

 

[Wigi]

http://www.helpmij.nl/forum/showthread.php?t=375644&highlight=clearcontents, post #18
http://www.helpmij.nl/forum/showthread.php?t=372380&highlight=clearcontents, post #8

...

Wigi

 

[svekkes]

Hey Wigi,

Bedankt voor je hulp. Heb de oplossing in een van die linkjes gevonden.
Het moest ClearContents zijn.

Hartelijk bedankt.