Selection.Copy nur Values möglich in einer Zeile?

Hallo Leute,

Wie kann ich in einer Anweisung eine Zelle mit Formeln in eine andere Zelle nur mit Werten kopieren? Ist das möglich? Hier wie es nur komplett geht inkl Formeln etc. in einer Anweisung / Zeile:

Selection.Copy Range("B1")

Damit kopiert er alles fein (inkl. Formeln leider) in Range B1 folgend, egal wieviele Zellen die vorherige Selection ausmacht ohne den Zwischenspeicher von Windows zu nutzen.
Leider funktioniert folgender Code nicht:

Selection.Copy Range("B1").PasteSpecial Paste:=xlPasteValues

Wenn man diesen Code so schreibt geht es, allerdings wird dann der Zwischenspeicher von Windows genutzt was er nicht soll:

Selection.Copy

Range("B1").PasteSpecial Paste:=xlPasteValues

So etwas dauert leider zu lange, da er so die "copy" Funktion von VBA nicht nutzt (damit kopiert er nur die Werte was gewünscht ist):

Cells(1, 1).Value = Cells(1, 2).Value

Habt Ihr da noch eine andere Idee mit "copy" ohne Zwischenspeichernutzung und kopieren nur der Werte?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

naja, du hattest ja immer von EINER Zelle geschreiben und nicht einfach nur so von Zellen. Daher ging ich auch davon aus, dass du auch nur eine Zelle meinst.
es ist nämlich genau die Datenmenge, die den Unterschied zwischen .Value = .Value und Copy+PasteSpecial ausmacht.

hierzu muss man die Unterschiede zwischen beiden Methoden kennen, ich kenne zumindest zwei signifikante:
1. bei jedem PasteSpecial selektiert Excel die Zielzelle und muss daher prüfen, ob es ein SelectionChange-Makro gibt und gegebenenfalls dieses ausführen. Das kostet Zeit, auch wenn es so ein Makro nicht gibt, denn zumindest die Prüfung muss durchgeführt werden.
beim .Value = .Value passiert das nicht.
(das Change-Eventmakro wird in beiden Fällen ausgelöst)

2. beim PasteSpecial führt Excel keine Typumwandlung der eingegebenen Werte durch. Gibt die kopierte Formel einen Text aus, wird immer dieser Text eingefügt und er bleibt Text.
das .Value = .Value hingegen prüft jeden eingefügten Wert auf Inhalt und wandelt um. Aus dem Text "123" wird die Zahl 123, aus dem Text "" eine echte Leerzelle und aus dem Text "=A1+A2" wird die entsprechende Formel. Das kostet natürlich Zeit, um so mehr, um so mehr Daten vorhanden sind.

wenn es rein um die Ausführungszeit geht, lässt sich daraus ableiten, dass. .Value = .Value dann schneller ist, wenn viele einzelne, nicht zusammenhängende Zellbereiche umgewandelt werden müssen (vermeidet jedes mal das SelectionChange), und dass .PasteSpecial dann schneller ist, wenn man viele Daten in einem Großen Block hat, der in einem Schritt bearbeitet werden kann (nur ein SelectionChange, aber keine Typumwandlung).

wenn es nicht auf harten Unterschiede ankommt (nutzung des Zwischenspeichers, Durchführung der Typumwandlung), dann hängt es von der Datenmenge und ihrer Struktur ab, welche Methode besser ist.

und nein, andere Methoden kenne ich nicht, nur diese beiden.

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Selection.Copy nur Values möglich in einer Zeile?

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Selection.Copy nur Values möglich in einer Zeile?

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread