Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
576to580
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zu langsam beim kopieren

zu langsam beim kopieren
02.03.2005 09:44:26
Franz
Hallo,
ich hab schon wieder ein unbegreifliches Problem. Ich möchte aus einem Workbook verschiedene Zellenwerte in ein anderes offenes Workbook kopieren.
Es handelt sich dabei um ca 50 Werte, die kreuz und quer im Workbook stehen (man kann also nicht einfach ne ganze Spalte kopieren)
Wenn ich nun mein Makro laufen lasse, dauert es ca 1,5 Minuten, bis die Werte kopiert sind. Wenn ich jedoch beim Funktionsaufruf(die Funktion, welche die Daten kopiert) einen Haltepunkt setze und sobald er stoppt sofort auf F5 (Weiter) drücke, braucht das Makro nur 10 Sekunden. Das versteh ich nicht.
Es ist also schneller, wenn ich einen Haltepunkt setze.
Ich habs auch schon probiert mit:
Application.DisplayAlerts = False
Application.ScreenUpdating = False
hat aber auch nix gebracht.
Vielen Dank schon mal, bitte helft mir
Franz

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

Betreff
Datum
Anwender
Anzeige
AW: zu langsam beim kopieren
02.03.2005 10:14:27
Uduuh
Hallo,
es wäre besser, wenn du die Mappe hochladen würdest, damit man sich den Code anschauen kann.
Gruß aus'm Pott
Udo

AW: zu langsam beim kopieren
02.03.2005 11:24:26
Franz
Hallo,
hier ein kleiner Auszug aus meiner Funktion:
Function Daten_Kopieren(Dateiname1 As String, Dateiname2 As String)
'***** Makro nicht durch Sicherheitswarungen unterbrechen *****
Application.DisplayAlerts = False

'***** Makroausführung verbergen aus!!! *****
Application.ScreenUpdating = False

'***jetzt werden die Daten kopiert***

Workbooks(Dateiname1).Activate
Sheets("Sheet1").Select
Range("B5").Select
Selection.Copy
Workbooks(Dateiname2).Activate
Sheets("Sheet3").Select
Range("D8").Select
ActiveSheet.Paste
Workbooks(Dateiname1).Activate
Sheets("Sheet2").Select
Range("F7").Select
Selection.Copy
Workbooks(Dateiname2).Activate
Sheets("Sheet1").Select
Range("R2").Select
ActiveSheet.Paste
Anzeige
AW: zu langsam beim kopieren
02.03.2005 13:30:35
Uduuh
Hallo,
das ganze Select und Activate ist überflüssig und verlangsamt nur den Code.

Sub test()
Application.ScreenUpdating = False
With Workbooks(Dateiname1)
.Sheets("Sheet1").Range("B5").Copy _
Destination:=Workbooks(Dateiname2).Sheets("Sheet3").Range("D8")
.Sheets("Sheet2").Range("F7").Copy _
Destination:=Workbooks(Dateiname2).Sheets("Sheet1").Range("R2")
End With
Application.ScreenUpdating = True
End Sub

Gruß aus'm Pott
Udo
AW: zu langsam beim kopieren
02.03.2005 10:14:42
Herbert
hallo Franz,
kannst du das Makro sehen lassen...?
die Auto-Berechnung auf Manuell stellen könnte vielleicht noch was bringen...
Application.Calculation = xlCalculationManual
gruß Herbert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige