Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

copy und paste rechnerleistung

copy und paste rechnerleistung
08.08.2003 12:21:22
richard
hi profis,
hat einer von euch erfahrungen wieviel copy und paste aktionen nen pII mit 300mHz und 128 mb ram so in der minute schafft.
dabei bleibe ich in einer arbeitsmappe und es werden immer nur einzelne zellen oder aber ein range über drei vier zellen kopiert
für erfahrungsberichte wäre ich dankbar
mfg richi

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: copy und paste rechnerleistung
08.08.2003 12:34:54
Ramses
Hallo
das geht wahrscheinlich auch einfacher.
zeig mal den Code den du bisher hast.
Gruss Rainer

AW: copy und paste rechnerleistung
08.08.2003 12:36:39
Martin
Wenn´s um Speed geht lasse möglichst copy und paste weg wo es geht !

Sub NoCopyAndPaste()
'Anstatt:
ThisWorkbook.Worksheets("Tabelle1").Range("A1:A200").Copy
ThisWorkbook.Worksheets("Tabelle2").Range("B1").pasteSpecial
Application.CutCopyMode=False'Clear Clipboard
'Nimm zum umgehen der Zwischenablage:
ThisWorkbook.Worksheets("Tabelle1").Range("A1:A200").Copy Destination:=Sheet2.Range("B1")
'Oder wenn Du nur die Werte ohne Formatierung brauchst
ThisWorkbook.Worksheets("Tabelle2").Range("B1:B200").Value= Sheet1.Range("A1:A200").Value
'oder nur die Formeln:
ThisWorkbook.Worksheets("Tabelle2").Range("B1:B200").Formula = Sheet1.Range("A1:A200").Formula
'Anstatt
ThisWorkbook.Worksheets("Tabelle1").Range("A1:A200").Copy
ThisWorkbook.Worksheets("Tabelle1").Range("A1:A200").PasteSpecial xlPasteValues
Application.CutCopyMode=False'Clear Clipboard
' ist es schneller mit
ThisWorkbook.Worksheets("Tabelle1").Range("A1:A200") = Sheet1.Range("A1:A200").Value
End Sub


Anzeige
AW: copy und paste rechnerleistung II
08.08.2003 12:40:46
Martin
Sorry hatte oberr leider noch einen Fehler drin,
mal enlsich mal deutsches Excel, dass beisst sich...

Sub NoCopyAndPaste()
'Anstatt:
ThisWorkbook.Worksheets("Tabelle1").Range("A1:A200").Copy
ThisWorkbook.Worksheets("Tabelle2").Range("B1").pasteSpecial
Application.CutCopyMode=False'Clear Clipboard
'Nimm zum umgehen der Zwischenablage:
ThisWorkbook.Worksheets("Tabelle1").Range("A1:A200").Copy DestinationThisWorkbook.Worksheets("Tabelle2").Range("B1")
'Oder wenn Du nur die Werte ohne Formatierung brauchst
ThisWorkbook.Worksheets("Tabelle2").Range("B1:B200").Value= ThisWorkbook.Worksheets("Tabelle1").Range("A1:A200").Value
'oder nur die Formeln:
ThisWorkbook.Worksheets("Tabelle2").Range("B1:B200").Formula = ThisWorkbook.Worksheets("Tabelle1").Range("A1:A200").Formula
'Anstatt
ThisWorkbook.Worksheets("Tabelle1").Range("A1:A200").Copy
ThisWorkbook.Worksheets("Tabelle1").Range("A1:A200").PasteSpecial xlPasteValues
Application.CutCopyMode=False'Clear Clipboard
' ist es schneller mit
ThisWorkbook.Worksheets("Tabelle1").Range("A1:A200") = ThisWorkbook.Worksheets("Tabelle1").Range("A1:A200").Value
End Sub

Grüße // Martin

Anzeige
code
08.08.2003 13:06:11
richard
hier mal mein code:
Dim Suchbegriff As String
Dim zielreihe As Integer
Dim WSsource
Dim WStarget
Dim rngSource As Range
Dim rngTarget As Range
WSsource = "Rohdaten"
WStarget = "2003"
i = Worksheets(WSsource).Range("A65536").End(xlUp).Row
For f = 2 To i
Suchbegriff = Worksheets("Rohdaten").Range("R" & f).Value
On Error Resume Next
For x = 1 To Sheets("2003").Cells(65000, 18).End(xlUp).Row
If Sheets("2003").Cells(x, 18).Value = Suchbegriff Then
zielreihe = x
Exit For
End If
Next x
Set rngSource = Worksheets(WSsource).Range("E" & f & ":P" & f)
Set rngTarget = Worksheets(WStarget).Range("F" & x & ":Q" & x)
rngSource.Copy
rngTarget.PasteSpecial Paste:=xlValues
Next f

Anzeige
AW: copy und paste rechnerleistung II
08.08.2003 13:38:30
richard
habe das problem anders gelöst.
geht jetzt alles in einem kopierschritt.
mußte dafür meine datengrundlage und das layout des zielnbereichs etwas anpassen, aber jetzt läuft es einwandfrei.
ich poste nochmal allen code, falls es jmd. interessiert ( ist ja schließlich nen forum hier)

Sub Kombinationen()
Dim Jahr As String
Dim Obergruppe
Dim Sparte
Dim Detail
Dim Monat
Dim varKombination
Dim b, c, d, e
Jahr = Year(Now())
Monat = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
Obergruppe = Array(1, 2)
Sparte = Array(1, 2, 3)
Detail = Array(1, 2, 3, 4, 5)
i = 1
For Each b In Sparte
For Each c In Obergruppe
For Each d In Detail
For Each e In Monat
i = i + 1
Worksheets(Jahr).Range("A" & i) = Jahr
Worksheets(Jahr).Range("B" & i) = b
Worksheets(Jahr).Range("C" & i) = c
Worksheets(Jahr).Range("D" & i) = d
Worksheets(Jahr).Range("E" & i) = e
Next e
Next d
Next c
Next b
End Sub


Sub Suchen_Kopieren()
Dim Suchbegriff As String
Dim zielreihe As Integer
Dim WSsource
Dim WStarget
Dim rngSource As Range
Dim rngTarget As Range
WSsource = "Rohdaten"
WStarget = "2003"
i = Worksheets(WSsource).Range("A65536").End(xlUp).Row
For f = 2 To i
Suchbegriff = Worksheets("Rohdaten").Range("R" & f).Value
On Error Resume Next
For x = 1 To Sheets("2003").Cells(65000, 19).End(xlUp).Row
If Sheets("2003").Cells(x, 19).Value = Suchbegriff Then
zielreihe = x
Exit For
End If
Next x
Set rngSource = Worksheets(WSsource).Range("E" & f & ":P" & f)
Set rngTarget = Worksheets(WStarget).Range("F" & x)
rngSource.Copy
rngTarget.PasteSpecial Paste:=xlValues, Transpose:=True
Next f
End Sub


Anzeige
AW: copy und paste rechnerleistung II
09.08.2003 12:31:29
Martin
Hallo Richard
Deine Routine sieht gut aus. Ist was richtig
Aufgeräumtes rausgekommen, das verdient Lob !
Grüße // Martin

251 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige