Libre Office

Status
Niet open voor verdere reacties.

tmeerdink

Nieuwe gebruiker
Lid geworden
1 aug 2016
Berichten
1
Beste,

ik wil graag een knop aanmaken waarmee ik op meerdere tabbladen diverse cellen wil verwijderen.
Hoe moet ik de code voor deze macro schrijven?

Voorbeeld:
Op Blad1 een knop plaatsen die cellen B6:C12 op Blad2 en cellen C4,C5 op Blad3 verwijderen.

Groeten
 
Cellen op ander blad verwijderen/leeg maken

Zou zo iets moeten worden dan;
Code:
        sub Gegevens_wissen
        Dim Doc As Object
        Dim Sheet2 As Object
        Dim Sheet3 As Object
        Dim CellRangeA As Object
        Dim CellRangeB As Object
        Dim Flags As Long

        Doc = ThisComponent
        Sheet2 = Doc.Sheets(1)  'Het tweede blad of Blad2.'
        CellRangeA = Sheet2.getCellRangeByName("B6:C12")

        Flags = com.sun.star.sheet.CellFlags.STRING + _
              com.sun.star.sheet.CellFlags.VALUE

        CellRangeA.clearContents(Flags)

        Sheet3 = Doc.Sheets(2)  'Het derde blad of Blad3.'
        CellRangeB = Sheet3.getCellRangeByName("C4:C5")

        CellRangeB.clearContents(Flags)
        end sub

Let op: het verwijdert slechts de INHOUD van de cel, niet de cel zelf

Plaats de knop op Blad1 en koppel die aan deze macro
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan