Verwijder de inhoud van bereiken uit een werkblad
Geplaatst: do okt 05, 2017 1:15 pm
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
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