wat is er niet goed aan deze code?

[Angela69]

Ik wil alle cellen in C11:N21 (dit zijn de gekleurde vakjes) wijzigen in het getal 150 middels:




Sub leegmaken()
'
' leegmaken Macro
' leegmaken scorebord
'
' Sneltoets: Ctrl+l
'
Range("C11").Select
ActiveCell.FormulaR1C1 = "150"
Range("C11").Select
Selection.Copy
Range("C11:N21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C11").Select
End Sub


het wordt niet uitgevoerd maar de regels 6 en 7 krijgen een gele achtergrond.

de foutmelding is:




wat gaat hier niet goed?

 

[edmoor]

Doe het eens zo:

Sub leegmaken()
    Range("C11").Resize(11, 12).Value = 150
End Sub

 

[Angela69]

Doe het eens zo:

Sub leegmaken()
    Range("C11").Resize(11, 12).Value = 150
End Sub

 

[Angela69]

Top, werkt geweldig, kun je mij uitleggen wat: Resize(11, 12) doet?

 

[edmoor]

Dat vergroot C11 met 11 regels en 12 kolommen.

 

[Angela69]

Dat vergroot C11 met 11 regels en 12 kolommen.

Aha, weer wat geleerd, hartelijk dank Edmoor!!

 

[jkpieterse]

En dit kan natuurlijk ook:

Range("C11:N21").Value = 150

 

[edmoor]

Wat ik dan eerder fout deed weet ik niet, maar die deed het bij mij niet.
Nu wel.
TS heeft nu wel wat extra's geleerd