• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Samengestelde cellen leegmaken met VBA

Status
Niet open voor verdere reacties.
S

SeringZH

Gebruiker
Lid geworden
18 mrt 2017
Berichten
100
Het wissen van de inhoud bij niet samengestelde cellen doe ik met deze code

Private Sub Wissen_Click()
For Each vk In ActiveSheet.UsedRange
If vk.Locked = False Then
vk.ClearContents
End If
Next vk
End Sub

Hoe moet het nu als dus alle niet geblokkeerde cellen leeg moeten.
Dus ook de samengevoegde.
 
Code: 
For Each vk In ActiveSheet.UsedRange
    If vk.Locked = False Then
        vk.Select
        Selection.ClearContents
    End If
Next vk
 
Laatst bewerkt:
Conseclusie

Bedankt voor de code. Dat is het wat ik bedoelde.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan