Verwijder de inhoud van bereiken uit een werkblad

Forumregels
In dit forum geen vragen stellen, het is uitsluitend bedoeld voor het plaatsten en toelichten van code. Stel vragen in het forum Macro's.
Gebruikersavatar
DiGro
Berichten: 86
Lid geworden op: wo mei 13, 2009 4:57 pm
Locatie: Hoorn NH

Verwijder de inhoud van bereiken uit een werkblad

Bericht door DiGro »

Onderstaande macro verwijdert de inhoud uit niet aaneengesloten bereiken in een werkblad.

Elk bereik is afzonderlijk gedefinieerd.

Verwijderd worden: waarde (value) ; datetime; tekenreeks (string) en formules (formula)

Waarden bij elkaar opgeteld voor die 4 categorieën levert 23 op, het getal achter ClearContents
Value = 1 ;Datetime = 2 ; String = 4 en Formula = 16

Na het verwijderen keert de cursor terug naar cel B4

Code: Selecteer alles

Sub VerwijderBereiken()
oCtrl = ThisComponent.CurrentController
oCtrl.Select(oCtrl.ActiveSheet.GetCellRangeByName("B4:O5"))
ThisComponent.getCurrentSelection.ClearContents(23)

oCtrl.Select(oCtrl.ActiveSheet.GetCellRangeByName("B8:O22"))
ThisComponent.getCurrentSelection.ClearContents(23)

oCtrl.Select(oCtrl.ActiveSheet.GetCellRangeByName("R4:X5"))
ThisComponent.getCurrentSelection.ClearContents(23)

oCtrl.Select(oCtrl.ActiveSheet.GetCellRangeByName("R8:X22"))
ThisComponent.getCurrentSelection.ClearContents(23)

oCtrl.Select(oCtrl.ActiveSheet.GetCellRangeByName("B26:O27"))
ThisComponent.getCurrentSelection.ClearContents(23)

oCtrl.Select(oCtrl.ActiveSheet.GetCellRangeByName("R26:X27"))
ThisComponent.getCurrentSelection.ClearContents(23)

oCtrl.Select(oCtrl.ActiveSheet.GetCellRangeByName("R29:X36"))
ThisComponent.getCurrentSelection.ClearContents(23)

oCtrl.Select(oCtrl.ActiveSheet.GetCellRangeByName("R41:R43"))
ThisComponent.getCurrentSelection.ClearContents(23)

oCtrl.Select(oCtrl.ActiveSheet.GetCellRangeByName("V41:V44"))
ThisComponent.getCurrentSelection.ClearContents(23)

oCtrl.Select(oCtrl.ActiveSheet.GetCellRangeByName("B4"))
End Sub
DiGro

----------------------------------------------------
Windows 11 en AOO 4.1.15
Gescand door Ziggo Safe Online (F-Secure)