benannte Zellbereiche per Makro auslesen/löschen

[ChristianAC]

Hallo,

Stephan hat in den FAQs kürzlich beschrieben,wie man alle bedingten Formate mit einem Makro markieren und auslesen kann.

Wie aber sieht es bei benannten Bereichen aus? Kann man genauso markieren,
wo überall ein Name für Zelle/n vergeben wurde?

Und kann man mit einem zweiten Makro alle löschen?
Ich habe mal eine Datei angehängt,um alle Unklarheiten zu beseitigen.

Gruss, Chris

[Karolus]

Hallo

Was möchtest du denn löschen, den benannten Bereich selbst, oder den Inhalt der referenzierten Zellen ??

[ChristianAC]

Hallo KaRoLuS,
nicht den Inhalt, nur den Namen.

Geht das ?

Gruss, Chris

[Karolus]

Jep

Code: Alles auswählen

sub remove_named_Ranges()
    doc = thisComponent
    nranges = doc.NamedRanges
    names = nranges.ElementNames
    for each name in names
        nranges.removeByName(name)
    next
end sub

[ChristianAC]

cool
ich mach ne Raucherpause

[ChristianAC]

Danke sehr.

[F3K Total]

... selektieren geht z.B. so:

Code: Alles auswählen

Sub S_Select_Named_Ranges
    oRanges = Thiscomponent.createinstance("com.sun.star.sheet.SheetCellRanges")
    oNamedRanges = thiscomponent.namedRanges
    for i = 0 to oNamedRanges.count - 1
        oRanges.addRangeAddress(oNamedRanges(i).ReferredCells.Rangeaddress, true)
    next i
    thiscomponent.currentController.select(oRanges)
End Sub

Gruß R

[ChristianAC]

vielen lieben Dank Euch beiden
dann habe ich ja alles,was ich brauch'
Das sieht schon wieder ganz anders aus als bei Stephan,da wäre ich mit meinem Abkupfern-Versuch mächtig gescheitert Tschüss, Chris