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