'Simpele' VBA vragen

[BruceSV]

Ik ben op het moment e.e.a. aan het uitproberen met VBA. En indien toegestaan zou ik deze thread willen gebruiken om wat vragen waar ik tegen aan loop allemaal te behandelen.

1) Het eerste waar ik tegen aan loop is het volgende:

Deze code werkt perfect:

Dim Invulvelden As Range
    Set Invulvelden = Worksheets(1).Range("J11:J19")
        Invulvelden.Select
            Selection.ClearContents

Echter als ik de code probeer te verkorten werkt het niet meer. Dit is mijn invoer:

Dim Invulvelden As Range
    Set Invulvelden = Worksheets(1).Range("J11:J19")
        Invulvelden.ClearContents

Wat zie ik over het hoofd? Waarom werkt deze verkorting niet?

 

[SjonR]

Met het plaatsen van een voorbeeldbestand heb je tien keer sneller een antwoord in plaats van tien vragen.

 

[OctaFish]

Overigens doet de code het prima in de korte variant:

    Set Invulvelden = ActiveSheet.Range("D4:D14")
    Invulvelden.ClearContents

 

[edmoor]

Of, als je dat object verder niet gebruikt, zo:

ActiveSheet.Range("D4:D14").ClearContents

 

[BruceSV]

Bedankt voor de snelle reacties

Ik blijf een 1004 foutcode krijgen als ik de korte variant gebruik. Terwijl de lange code dus wel gewoon werkt.

Overigens doet de code het prima in de korte variant:

    Set Invulvelden = ActiveSheet.Range("D4:D14")
    Invulvelden.ClearContents

http://www.helpmij.nl/forum/newreply.php?p=5870707&noquote=1

 

[OctaFish]

Des te meer reden voor een bestandje van jouw kant .

 

[snb]

Omdat de activesheet de default is in Excel volstaat

Range("D4:D14").ClearContents

of

[D4:D14].ClearContents

Omdat je start met VBA ga ik ervan uit dat je geen exotica gebruikt als merged cells, protection, hidden, invisible, etc.