Bereichsnamen ändern Global -> Sheet
Verfasst: Sa 19. Nov 2022, 09:56
Hallo in die Runde, der Code legt Bereichsnamen neu an, bzw. ändert den Bereich falls die Namen schon vorhanden sind.
Der Bereich gilt für das gesamte Dokument(global).
Was muss geändert werden dass er nur für das Sheet "Import" gilt?
Danke
Stefan
Code: Alles auswählen
Sub BereichsNamen()
Dim Range, Ranges, Sheet, Cell
Dim sBer_Name$, sBer_Range$
Dim i 'Zählvariable'
Dim arrRang
Dim lngCellEnd& : lngCellEnd = 1000
arrRang = Array("Datum", "$Import.$B$1:$B$","Aussen", "$Import.$C$1:$C$", "Oben", "$Import.$D$1:$D$", "Unten", "$Import.$E$1:$E$", "Luefter", "$Import.$F$1:$F$")
for i = 2 to 10 Step 2
sBer_Name = arrRang(i - 2)
sBer_Range = arrRang(i - 1) & lngCellEnd
Ranges = ThisComponent.NamedRanges
If Not Ranges.hasByName(sBer_Name) Then
Dim CellAddress As New com.sun.star.table.CellAddress
CellAddress.Sheet = 0 'Das erste Tabellenblatt
CellAddress.Column = i /2 + 1 'Spalte C
CellAddress.Row = 1 'Zeile 2
Ranges.addNewByName(sBer_Name, sBer_Range, CellAddress, 0)
Else
Sheet = thisComponent.Sheets(0)
'bNamedRanges = thisComponent.NamedRanges
Range = Ranges.getbyName(sBer_Name)
Range.Content = sBer_Range
end if
next i
End Sub
Was muss geändert werden dass er nur für das Sheet "Import" gilt?
Danke
Stefan