help mbt code

[Eastw00d]

Bereik op meerdere worksheets wissen

ik heb de volgende code gemaakt. Deze moet op 2 verschillende tabbladen cellen legen dmv 1 click

Private Sub CommandButton4_Click()
If MsgBox("Weet je het zeker?", vbCritical + vbYesNo) = vbYes Then
Sheets("blad1").Range("legen").Select
Sheets("blad3").Range("wisbaar").Select
Selection.ClearContents

           
      End If
    
End Sub

ik krijg echter een fout melding: fout 1004 tijdens uitvoering.

waar ga ik fout?

 

[ExcelAmateur]

Probeer het zo eens.

Private Sub CommandButton4_Click()
  If MsgBox("Weet je het zeker?", vbCritical + vbYesNo) = vbYes Then
    Sheets("blad1").Range("legen").ClearContents
    Sheets("blad3").Range("wisbaar").ClearContents
  End If
End Sub

 

[Eastw00d]

Werkt!

Bedankt!!!

 

[snb]

Kun je de titel van de vraag ten behoeve van toekomstige bezoekers/gebruikers van dit forum svp een inhoudelijk zinvolle titel geven ?
Dat zoekt een stuk handiger (zoals je op basis van je eigen zoekervaringen zult kunnen bevestigen).

 

[Cobbe]

zoals je op basis van je eigen zoekervaringen zult kunnen bevestigen

Dat is toch wel echt cynisch bedoeld!

 

[Eastw00d]

Kun je de titel van de vraag ten behoeve van toekomstige bezoekers/gebruikers van dit forum svp een inhoudelijk zinvolle titel geven ?
Dat zoekt een stuk handiger (zoals je op basis van je eigen zoekervaringen zult kunnen bevestigen).

als ik dat kan vinden in dit forum zou ik dit graag doen

 

[Cobbe]

'Bereiken wissen" --> 0.13 sec. 45 hits met 13 oplossingen die je kan gebruiken.