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.

Verwijder de inhoud van bereiken uit een werkblad

Berichtdoor DiGro » 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

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
DiGro

--------------------------
Windows 10 en AOO 4.1.4
Gescand door Ziggo Uitgebreide Internetbeveiliging (F-Secure)
Avatar gebruiker
DiGro
 
Berichten: 48
Geregistreerd: wo mei 13, 2009 4:57 pm
Woonplaats: Hoorn NH

Keer terug naar Macro voorbeelden

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast