Benutzerdefinierte Zellen kopieren mit Makro

[horaz]

Hallo!

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 

[mikele]

Hallo,
beide Bereiche kombinieren wird nicht sinnvoll.
Ergänze einfach

Code: Alles auswählen

daten2()=quelle.getcellrangebyname("B2:D2").getdataarray()
		ziel.getcellrangebyposition(1,i,3,i).setdataarray(daten2())

Nebenbei quelle und ziel stellen dasselbe Sheet dar. Zwei Variablen sind da eher unnötig.

[horaz]

Hallo,
beide Bereiche kombinieren wird nicht sinnvoll.
Ergänze einfach

Code: Alles auswählen

daten2()=quelle.getcellrangebyname("B2:D2").getdataarray()
		ziel.getcellrangebyposition(1,i,3,i).setdataarray(daten2())

Nebenbei quelle und ziel stellen dasselbe Sheet dar. Zwei Variablen sind da eher unnötig.

Bester Dank, ich habe wieder mal viel zu kompliziert gedacht. (Quelle und Ziel selbes Sheet habe ich anfangs unterschiedlich gehabt, und bin ich mir noch nicht sicher wie die Endfassung wird, deshalb hab ich es drinnen lassen)

thanks