Cellen leegmaken in ander werkblad, als celinhoud bijvoorbeeld 6 is

[Vaurien]

Voorwaarde,

Inwerkblad "B" wordt een macro uitgevoerd.
Als de waarde in de mergedcells "M4:M5" gelijk is aan 6 moeten in het werkblad "A"

een extra kolom cellen Range("B11:B40") leeggemaakt worden.

Het cellen bereik leegmaken zonder deze voorwaarde lukt wel maar niet met de

IF Range ("M4:M5") = 6 THEN

ActiveWorkbook.Worksheet ("A").Select
Range ("B11:B40").Select
Selection.ClearContents.

End IF

Ik kom maar niet aan de juiste syntaxes.

Wel met With en End With
Wel of niet met Else
Wel of niet met Sub end sub want het is al binnen een Sub.

Een ander voorbeeld met ingewikkelde "For each c" loop van math1 beantwoord door Cobbe in 2013 kon me eveneens niet helpen.

De volgende fout melding komt regelmatig voor tijdens "Trial and Error "
Fout 13 tijdens uitvoering; Type komen niet met elkaar overeen.

 

[edmoor]

Dit zal waarschijnlijk voldoende zijn:

If Range("M4") = 6 Then
    Sheets("A").Range("B11:B40").ClearContents
End If

 

[Vaurien]

Bedankt, Ik snap nu niet wat ik steeds met mijn " trial and error" verkeerd heb gedaan.
Ik zou zweren dat ik dit ook al eens heb geprobeerd.
Maakt het verschil, als de waarde 6 gevormd wordt door een formule als vertikaal zoeken etc?
voor de testen heb ik gewoon even 6 ingevuld in die cel en daarmee even de formule overschreven.
Als alles dus werkt is dit weer een formule.
Moet dan de value er aan te pas komen of zo?

bij voorbaat dank,
Mag ik jou een vriendschapsverzoek doen?

 

[edmoor]

Het maakt niet uit of die 6 er "hard" in staat of dat deze er door een formule in is gezet. Opvragen ervan met Range("M4") is hetzelfde als Range("M4").Value.
Die .Value mag je weglaten omdat dit het default attribuut is.

En ja, dat mag je

 

[Vaurien]

Geweldig bedankt.