Ich verwende folgenden Code um einen Zellenbereich (K2:AO2) zu kopieren in eine neue freie Zeile, dies funktioniert soweit.
Nun möchte ich aber den Bereich anpassen das ebenfalls der Bereich (B2:D2) mit kopiert wird, und der Bereich dazwischen nicht.
Leider haben meine Suchanfragen keine vernünftige Lösung gebracht, wie ich Zellbereiche kombiniere oder eventuell ausschließe beim Kopieren bzw. dann beim Einfügen.
Ich hoffe jemand kann mir helfen, vorab bester Dank.
Code: Alles auswählen
Sub NeueZeileKopieren
odoc=thiscomponent
quelle=odoc.sheets(3)
ziel=odoc.sheets(3)
daten()=quelle.getcellrangebyname("K2:AO2").getdataarray()
i=15
do while ziel.getcellbyposition(10,i).type>0
i=i+1
loop
ziel.getcellrangebyposition(10,i,40,i).setdataarray(daten())
End Sub 