Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Werte kopieren mit VBA

Werte kopieren mit VBA
22.05.2008 08:39:00
Martin
Guten Morgen,
ich will versuchen mein altes copy-paste-Makro durch eine neues zu
ersetzen. Damit soll die Schleife schneller werden.
Will aber nur die Werte kopieren. Das hat mit Version 1
gut funktioniert. Aber Version 2 kopiert die Formeln mit. Weiß jemand,
wie man mit Version 2 nur Werte kopiert?
Danke,
Born
Version 1 (alt)
' Worksheets("Spiel").Range("E1:E46").Copy
' Worksheets("Spiel").Cells(Startzeile1, 1).PasteSpecial Paste:=xlPasteValues, _
' Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Version 2 (neu)
Worksheets("Spiel").Range("E1:E46").Copy Worksheets("Spiel").Range(Cells(1, efs), Cells(46, efs))

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Werte kopieren mit VBA
22.05.2008 08:44:00
Beverly
Hi Martin,
wenn du nur die Werte kopieren willst, musst du nach wie vor die erste Variante verwenden - es geht nur mit PasteSpecial.


AW: Werte kopieren mit VBA
27.05.2008 10:22:00
Martin
Danke für die Antwort,
Born

AW: Werte kopieren mit VBA
22.05.2008 09:02:57
fcs
Hallo Martin,
alternativ zur PasteSpecial Methode könntest du mit direkter Wertzuweisung arbeiten. ich weiss aber nicht, ob es schneller geht. Wahrscheinlich ja, da der Weg über die Zwischenablage entfällt.

Sub aaTest()
Startzeile1 = 50 'Testeingabe
'Version 1 (alt)
' Worksheets("Spiel").Range("E1:E46").Copy
' Worksheets("Spiel").Cells(Startzeile1, 1).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Version 2 (neu)
Worksheets("Spiel").Cells(Startzeile1, 1).Range("A1:A46").Value = _
Worksheets("Spiel").Range("E1").Range("A1:A46").Value
End Sub


Gruß
Franz

Anzeige
AW: Werte kopieren mit VBA
22.05.2008 09:03:05
Josef
Hallo Martin,
die Werte einfach zuweisen.
Worksheets("Spiel").Range(Cells(1, efs), Cells(46, efs)) = Worksheets("Spiel").Range("E1:E46").Value


Gruß Sepp



Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige