cellen wissen op meerdere werkbladen

[fdh]

hallo,
Ik ben al een tijdje aan het zoeken in oude vragen maar kan geen werkende oplossing vinden,

Ik wil doormiddel van een knop in diverse werkbladen cellen leegmaken, de code die ik nu gebruik is alleen voor het huidige werkblad en heb dus op elk werkblad een knop staan.
Het is handiger om met 1 knop alle 4 de werkbladen te wissen wel heeft elk werkblad een ander cellen bereik.
Dit heb ik op het moment, waar moet ik het aanpassen om het voor meerdere werkbladen te laten werken.

Bedankt.


Private Sub CommandButton1_Click()

Range("C8:C15,F8:F15,C28:C35,F28,F29,F31:F35,B42:C45").ClearContents
Unload RapportLeegmaken
MsgBox ("Rapport is Opgeschoond.")

End Sub

 

[edmoor]

Zoiets:

Private Sub CommandButton1_Click()
    For Each sh In ThisWorkbook.Sheets
        Select Case sh.Name
            Case "Sheet1"
                sh.Range("C8:C15,F8:F15,C28:C35,F28,F29,F31:F35,B42:C45").ClearContents
        End Select
    Next sh
    
    Unload RapportLeegmaken
    MsgBox ("Rapport is Opgeschoond.")
End Sub

 

[fdh]

Hallo,

Bedankt voor je reactie maar om de een of andere reden krijg ik het niet werkend.

 

[edmoor]

Je moet natuurlijk wel zelf de juiste bladnamen en ranges invullen. Je mag die Case "Sheet1" meerdere keren gebruiken voor meerdere sheets.
Plaats anders je document en geef aan op welk blad welke cellen geschoond moeten worden.

 

[fdh]

Hallo,
Ik heb een test map gemaakt met mn code erin, het orgineel bevat veel macro's en ik krijg hem niet klein genoeg om te uploaden vandaar dit.

 

[edmoor]

Deze:

Private Sub Knop1_Klikken()
    Dim sh As Object
    For Each sh In ThisWorkbook.Sheets
        Select Case sh.Name
            Case "Bestellingen"
                sh.Range("B4:B10", "D4:D10").ClearContents
            Case "Planten"
                sh.Range("C3:C9", "E3:E9").ClearContents
        End Select
    Next sh
End Sub

Die Dim opdracht heb ik erbij gezet omdat je Option Explicit bovenin hebt staan.

 

[fdh]

Ja nu heb ik hem werkend, zat waarschijnlijk in de Dim opdracht.

Bedankt voor je geduld. :thumb:

 

[edmoor]

Graag gedaan