bowlingman
Gebruiker
- Lid geworden
- 17 okt 2007
- Berichten
- 433
Hallo,
Ik wil als het nieuwe seizoen begint de ingevulde scellen op de sheet "Speeldagen" allemaal wissen met de volgende code
Vermits dit zo voor 35 speeldagen zou moeten gebeuren, vraag ik mij af of deze code eventueel korter kan geschreven worden.
Grtjs.
Armand
Ik wil als het nieuwe seizoen begint de ingevulde scellen op de sheet "Speeldagen" allemaal wissen met de volgende code
Code:
Sub Macro1()
With Sheets("Speeldagen")
'Dit is de selectie voor Speeldag 1
Range("A3:E3,J3:N3,A5:F7,J5:O7,A13:E13,A15:F17,J13:N13,J15:O17,A23:E23,J23:N23,A25:F27,J25:O27,A33:E33,A35:F37,J33:N33,J35:O37").Select
Selection.ClearContents
'Dit is de selectie voor Speeldag 2
Range("A43:E43,J43:N43,A45:F47,J45:O47,A53:E53,A55:F57,J53:N53,J55:O57,A63:E63,J63:N63,A65:F67,J65:O67,A73:E73,A75:F77,J73:N73,J75:O77").Select
Selection.ClearContents
End With
End Sub
Grtjs.
Armand