Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bereiche duplizieren

Bereiche duplizieren
28.04.2003 15:54:41
Harald Wopenka
Hallo allerseits!

Ich kopiere in einer Tabelle sehr viele Bereiche (range) hin und her. Dazu verwende ich die Methoden .copy und .PasteSpecial xlValues.

Allerdings braucht das sehr lange und schlägt sich somit auf die Gemüter der Endbenutzer nieder.

Ein simples range("A1:A10")=range("B1:B10") funktioniert leider nicht. Aber irgendwie bin ich davon überzeugt, dass es da eine Möglichkeit gibt... wer weiss Rat?

Danke im Voraus,
Harry

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Bereiche duplizieren
28.04.2003 15:59:44
ChrisL

Hallo Harry

Vielleicht...
range("A1:A10").value=range("B1:B10").value

Ob es betr. Performance einen grossen Unterschied macht weiss ich nicht.

Wieso eigentlich PaseSpecial?

Gruss
Chris

Re: Bereiche duplizieren
28.04.2003 17:18:30
Harald Wopenka

Hi Chris,

mit value hats leider auch nicht funktioniert. Ich habe mich schon ein bisschen mit dem Thema gespielt, bin aber leider auf keinen grünen Zweig gekommen.

Das PasteSpecial verwende ich um nur die Werte zu übertragen. An den Formaten soll sich nichts ändern. - Wobei dies nicht zwingend erforderlich ist. Meine Priorität liegt bei der Performanz des Makros.

Tja... danke für Deine Antwort... ich werd's vorerst mal bei Copy/Paste belassen müssen.


bye, Harry

Anzeige
Re: Bereiche duplizieren
28.04.2003 17:33:04
ChrisL

Hi Harry

range("A1:A10").value=range("B1:B10").value

funktioniert bei mir einwandfrei. Willst du von B nach A kopieren oder umgekehrt.

Gruss
Chris

Re: Bereiche duplizieren
28.04.2003 22:10:03
Harald Wopenka

Hi Chris,

so simpel A nach B ist es nicht...

aSh.Range(prefix$ & "FilData" & Format(x, "00")).Value = aSh.Range(Cells(fRow + 1, fcp), Cells(fRow + 16, fcp)).Value

Aber Du hast Recht - es funktioniert wirklich. Keine Ahnung, warum ich das vorher nicht hingebracht habe.

Jedenfalls ist es jetzt wahnsinnig schnell! Danke Dir!

LG Harry

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige