Werkblad wissen

[RobYol]

Ik gebruik de volgende macro om mijn werkblad leeg te maken:

Sub Werkblad_wissen()
Range("C8:E8,G8:I8,K8:M8,O8:Q8,S8:U8,W8:Y8,AA8:AC8").Value = ""
Range("C10:E10,G10:I10,K10:M10,O10:Q10,S10:U10,W10:Y10,AA10:AC10").Value = ""
Range("C12:E12,G12:I12,K12:M12,O12:Q12,S12:U12,W12:Y12,AA12:AC12").Value = ""
Range("C14:E14,G14:I14,K14:M14,O14:Q14,S14:U14,W14:Y14,AA14:AC14").Value = ""
Range("C16:E16,G16:I16,K16:M16,O16:Q16,S16:U16,W16:Y16,AA16:AC16").Value = ""
Range("C18:E18,G18:I18,K18:M18,O18:Q18,S18:U18,W18:Y18,AA18:AC18").Value = ""
Range("C20:E20,G20:I20,K20:M20,O20:Q20,S20:U20,W20:Y20,AA20:AC20").Value = ""
Range("C22:E22,G22:I22,K22:M22,O22:Q22,S22:U22,W22:Y22,AA22:AC22").Value = ""
Range("C24:E24,G24:I24,K24:M24,O24:Q24,S24:U24,W24:Y24,AA24:AC24").Value = ""
Range("C26:E26,G26:I26,K26:M26,O26:Q26,S26:U26,W26:Y26,AA26:AC26").Value = ""
Range("C28:E28,G28:I28,K28:M28,O28:Q28,S28:U28,W28:Y28,AA28:AC28").Value = ""
Range("C30:E30,G30:I30,K30:M30,O30:Q30,S30:U30,W30:Y30,AA30:AC30").Value = ""
Range("C32:E32,G32:I32,K32:M32,O32:Q32,S32:U32,W32:Y32,AA32:AC32").Value = ""
Range("C34:E34,G34:I34,K34:M34,O34:Q34,S34:U34,W34:Y34,AA34:AC34").Value = ""
Range("C36:E36,G36:I36,K36:M36,O36:Q36,S36:U36,W36:Y36,AA36:AC36").Value = ""
Range("C38:E38,G38:I38,K38:M38,O38:Q38,S38:U38,W38:Y38,AA38:AC38").Value = ""
Range("C40:E40,G40:I40,K40:M40,O40:Q40,S40:U40,W40:Y40,AA40:AC40").Value = ""
Range("C42:E42,G42:I42,K42:M42,O42:Q42,S42:U42,W42:Y42,AA42:AC42").Value = ""
Range("C44:E44,G44:I44,K44:M44,O44:Q44,S44:U44,W44:Y44,AA44:AC44").Value = ""
Range("C46:E46,G46:I46,K46:M46,O46:Q46,S46:U46,W46:Y46,AA46:AC46").Value = ""
End Sub

Hoe kan deze code kleiner. Of hoe kan ik een bepaalde range wissen (gegevens) zonder dat de formules worden gewist?

 

[Ginger]

RobYol, Zonder een echt voorbeeld is het altijd een beetje gissen, maar probeer dit 'ns uit op een kopie van je sheet...

Sub BijnaAllesWissen()

    Range("C8:AC46").SpecialCells(xlCellTypeConstants).ClearContents

End Sub

Groet, Leo

 

[RobYol]

RobYol, Zonder een echt voorbeeld is het altijd een beetje gissen, maar probeer dit 'ns uit op een kopie van je sheet...

Sub BijnaAllesWissen()

    Range("C8:AC46").SpecialCells(xlCellTypeConstants).ClearContents

End Sub

Groet, Leo

Bedankt Leo, hij werkt, alleen als het blad al leeg is en de code wordt opgestart krijg je een foutmelding. Hoe vang ik dit op.

Gr Robert:thumb:

 

[wiki]

zet voor de code:

on error resume next

gr wim

 

[RobYol]

zet voor de code:

on error resume next

gr wim

Dank je wel. Even voor mezelf. De code zegt bij een fout naar volgende stap. Heb ik dat goed?

Gr. Robert

 

[wiki]

Ja als de code in een fout resulteert dan moet deze overgeslagen worden.

gr wim