Pagina 1 van 1

Verwijder de inhoud van bereiken uit een werkblad

BerichtGeplaatst: do okt 05, 2017 1:15 pm
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   UitklappenInklappen
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