Als je op blad1, op de knop [Nieuw toernooi] klikt, worden op 2 bladen bepaalde cellen gewist.
Daarna zouden de begincellen moeten geselecteerd worden.
En hier loopt het mis: Op blad2, wordt cel G3 niet geselecteerd.
Foutmelding: "Select van range mislukt"
Ik zal wel iets heel dom doen, maar wat?
Daarna zouden de begincellen moeten geselecteerd worden.
En hier loopt het mis: Op blad2, wordt cel G3 niet geselecteerd.
Foutmelding: "Select van range mislukt"
Ik zal wel iets heel dom doen, maar wat?
Code:
Sub leegmaken()
Application.ScreenUpdating = False
With Sheets(1)
.Unprotect
.Range("B2:C" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1).ClearContents
.Range("B2").Select
.Protect
End With
With Sheets(2)
.Unprotect
.Range("A3:B214").ClearContents
.Range("H3:G214").ClearContents
.Range("M2").ClearContents
[COLOR="#FF0000"].Range("G3").Select[/COLOR]
.Protect
End With
Application.ScreenUpdating = True
End Sub