OpenOffice.info

Sub Insert_100_named_Ranges
     oNamedRanges = thiscomponent.NamedRanges
     sSheetname = "Tabelle1"
     osheet = Thiscomponent.sheets.getbyname(sSheetname)
     for i = 1 to 101
         sStartcell = "$A$"+((10*i)-8)'Spalte A
         sEndcell = "$D$"+(10*i)'Spalte D
         ocell = osheet.getcellrangebyname(sStartcell)
         aPosition = ocell.CellAddress
         aContent = "$"+sSheetname+"."+sStartcell+":"+sEndcell
         oNamedRanges.addNewByName("Bereich"+i, aContent, aPosition , 0 )
     next i
     msgbox "Fertig, 100 Bereiche angelegt"
End Sub

Hi MaximilianWe,
dieses Makro legt auf Tabelle1 100 Bereiche mit den Namen
[list][*]Bereich1 = $Tabelle1.$A$2:$D$10
[*]Bereich2 = $Tabelle1.$A$12:$D$20
[*]Bereich3 = $Tabelle1.$A$22:$D$30
[*]
[*]usw.[/list]
an, die also zwischen Spalte A und Spalte D jeweils 9 Zellen hoch sind und eine Zeile Abstand voneinander haben.
[code]Sub Insert_100_named_Ranges
oNamedRanges = thiscomponent.NamedRanges
sSheetname = "Tabelle1"
osheet = Thiscomponent.sheets.getbyname(sSheetname)
for i = 1 to 101
sStartcell = "$A$"+((10*i)-8)'Spalte A
sEndcell = "$D$"+(10*i)'Spalte D
ocell = osheet.getcellrangebyname(sStartcell)
aPosition = ocell.CellAddress
aContent = "$"+sSheetname+"."+sStartcell+":"+sEndcell
oNamedRanges.addNewByName("Bereich"+i, aContent, aPosition , 0 )
next i
msgbox "Fertig, 100 Bereiche angelegt"
End Sub[/code]
Viel Erfolg beim Umbauen
Gruß R

für eine Doku muss ich [b]in einer Tabelle eine Reihe (40) von Datenbereichen anlegen[/b]. Die Bereiche und NAmen folgen einem bestimmten Algorhytmus und liessen sich mit einem Makro (sub) einrichten, dem als Parameter der jeweilige Bereich und der Name übergeben werden.
Der Versuch mit "Makro aufzeichnen" und daraus die mögliche Routine abzuleiten klappt nicht, weil das Makro immer nur zur Selektion des Bereichs geht und dann praktisch auf die Eingabe des Namens wartet. Aber der soll auch vom Programm vergeben werden.
Wer kennt sich damit aus?

Danke für Hilfe.
Max