Klein vraagje - vba excelcode korter maken

[ADvH]

beste,

Ik heb een kort vraagje. Ik heb sterk de indruk dat onderstaande code verkort kan worden (1 regel), maar wat ik ook probeer, ik krijg het niet voor elkaar....

Range("g2:j2").Select
Range(Selection, Selection.End(xlDown)).ClearContent

... of zoek ik naar iets wat niet bestaat

Groeten Albert

 

[Mde]

Range("g2:j2").ClearContents

zo kan het.

 

[ADvH]

Beste Marco,
dank voor je reactie, maar ik denk dat je nu vergeet wat in de 2e regel bedoeld wordt, namelijk dat vanáf de selectie g2 t/m j2 alles naar beneden geselecteerd moet worden en dat leeggemaakt moet worden.

groeten Albert

 

[jkpieterse]

Range(Range("g2:j2"), Range("g2:j2").End(xlDown)).ClearContents

 

[snb]

Sub M_snb()
   Range("G2:J2").Resize(Rows.Count - 1).ClearContents
End Sub

 

[ADvH]

Beste Jan-Karel en SNB,

Dank voor deze snelle reactie. jullie beide oplossingen reageren net iets anders, maar beide kan ik heel goed gebruiken!

Hartelijk dank!!

Groeten Albert

 

[sylvester-ponte]

je schrijft vanáf, dus ....