Makro für Datenbereiche anlegen

[MaximilianWe]

für eine Doku muss ich in einer Tabelle eine Reihe (40) von Datenbereichen anlegen. 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

[F3K Total]

Hi MaximilianWe,
dieses Makro legt auf Tabelle1 100 Bereiche mit den Namen

• Bereich1 = $Tabelle1.$A$2:$D$10
• Bereich2 = $Tabelle1.$A$12:$D$20
• Bereich3 = $Tabelle1.$A$22:$D$30
• usw.

an, die also zwischen Spalte A und Spalte D jeweils 9 Zellen hoch sind und eine Zeile Abstand voneinander haben.

Code: Alles auswählen

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

Viel Erfolg beim Umbauen
Gruß R