tabblad leegmaken

[rthoonsen]

Hallo ik probeer vanuit een tabblad "test" bijvoorbeeld tabblad "totaal-oud" de inhoud leeg te maken
Het lukt mij niet dit voor elkaar te krijgen alleen als ik de code start wanneer ik op tabblad "totaal-oud" staat.
Tevens zou ik graag willen dat alleen de 1e rij blijft staan en dat de rest van kolom A t/m AW leeggemaakt mag worden vanaf rij 2.


Sub Totaaloud_Leegmaken()

Application.ScreenUpdating = False
Sheets("totaal-oud").Columns("A:AW").Select
Selection.ClearContents

End Sub

 

[JEC.]

Probeer het eens zo

Sub jec()
 With Sheets("totaal-oud")
    .Range("A2", .Range("AW" & Rows.Count).End(xlUp)).ClearContents
 End With
End Sub

 

[rthoonsen]

Hoi JV, dit werkt wel maar dan alleen voor rij 2?
Misschien heb ik het verkeerd beschreven maar vanaf rij2 naar beneden oneindig alles leeg maken.
Nu wordt alleen rij 2 leeg gemaakt?

 

[JEC.]

Dat kan kloppen, staat er niets in kolom AW?

Zo dan

Sub jec2()
Sheets("totaal-oud").UsedRange.Resize(, 49).Offset(1).ClearContents
End Sub

 

[rthoonsen]

Dank je wel JV dit is precies wat het moet doen.
en klopt soms komt er wel iets voor onder kolom AW en soms niet.

Maar met dit is het opgelost super thanks