vba fout 1004 "er zijn geen cellen gevonden"

Status
Niet open voor verdere reacties.

lvgelder

Nieuwe gebruiker
Lid geworden
15 mrt 2019
Berichten
1
In een worksheet heb ik een aantal Ranges gedefinieerd waarvan tijdens een programma de inhoud verwijderd moet worden.

Dit gaat met de onderstaande code.

Range("b35:b39").SpecialCells(xlCellTypeConstants).ClearContents

Dit werkt goed zolang er tenminste 1 cel in de range een inhoud heeft.
Indien zich in geen enkele cel van de gedefinieerde Range(s) inhoud bevindt krijg ik de bovenvermelde foutcode (Titel).
Zodra ik in van de cellen van de range een inhoud geef loopt het programma verder.

Ik zou er wel wat code omheen kunnen schrijven, bijvoorbeeld door vooraf in 1 cel van elke Range inhoud te zetten, maar dat is wat omslachtig.

wie zou mij kunnen helpen??
 
Bv

Code:
If Application.CountA(Range("B35:B39")) > 0 Then Range("B35:B39").SpecialCells(xlCellTypeConstants).ClearContents
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan