Office: Zellen kopieren und einfügen

Hi,
ich möchte aus worksheet1 die zellen A1 bis B3 kopieren und in worksheet2 einfügen. Kann mir jemand ein kleines codestück schreiben?

lg patrick

:)

 

Hi Patrick,

zeichne es mit dem Makrorecorder auf.

 

Hallo Patrick,

benutze doch den Makrorecorder zum aufzeichnen.

 

Danke das funktioniert soweit, nur ist das nicht wirklich elegant, wie kann ichs besser machen als mit select??

 

Hallo Patrick,

willst Du immer an die selbe Stelle kopieren? Dann geht es bspw. so:

Code:

 

Hallo Patrick,

schaue in die VBA Hilfe zu copy.

 

\@ myfake
wäre toll wenn du mir zeigen würdest wie mein problem mit "historie" zu lösen ist

lg

 

Hallo Patrick,

das kannst Du mit diesem geänderten Code erreichen:

Code:

 

Hi myfake,
danke schön.
ja wenn du mir das so schmackhaft machst- interessiert mich die anpassung des datenbereichs natürlich auch noch :-)
Wäre nett, wenn du mir das zeigen würdest

 

Hallo Patrick,

so so - Du bist also auf den Geschmack gekommen *wink.gif*

Dann schau Dir mal diesen Code hier an:

Code:

Bei weiteren Fragen einfach nochmal durchkommen. *Smilie

cu
myfake

 

Hallo, myfake,

insbesondere die Zuweisung von Rows.Count als mögliche startende Zeile weist aus, dass hier ein Logikfehler vorhanden ist, denn unterhalb Rows.Count kann nichts zugewiesen werden. Murphy lässt grüssen. *wink.gif*
Es sollte immer eine Prüfung erfolgen, ob auf der Tabelle noch genug Platz vorhanden ist. Dann, und nur dann, darf das Kopieren ausgeführt werden, ansonsten sollte der Hinweis an den User errfolgen.

Ciao,
Holger

 

Hallo Holger,

da hast Du natürlich recht. Wenn versucht wird mehr Zeilen einzufügen, als im Sheet noch frei sind, dann steigt der Code aus. *frown.gif*

Wahrscheinlich kommt Patrick aber zunächst einmal mit den rd. 65.000 Zeilen zurecht. Sollte das nicht der Fall sein, dann müssen wir (in dem Fall gebe ich gerne an Dich ab *wink.gif* ) halt nochmal ran. *Smilie

cu
myfake

 

Ich glaub schon, dass mir die 65000 zeilen reichen ;-)
Vielen dank für deine hilfe myfake

lg