Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1620to1624
1620to1624
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schnellerer Datentransfer zw. 2 Tabellenblättern

Forumthread: Schnellerer Datentransfer zw. 2 Tabellenblättern

Schnellerer Datentransfer zw. 2 Tabellenblättern
24.04.2018 08:41:41
Jonas
Hallo liebe Community..
ich suche in VBA nach einer schnellen Alternative zum kopieren. In meinem Fall muss ich zu Beginn meines Makros ein Tabellenblatt in sein Ausgangszustand zurücksetzen. Dazu habe ich ein zweites Blatt in dem dieser Ausgangszustand abgebildet ist. Leider ist der zu kopierende Bereich relativ groß, sodass der Kopiervorgang eine knappe halbe Minute dauert. Der aktuelle Kopierbefehl dazu lautet:
wksSheet1.Range("A1:NC253").Copy Destination:=wksSheet2.Range("AJ7")
Hat eventuell einer eine Idee wie dieser ganze Vorgang etwas beschleunigt werden kann?
LG Jonas
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schnellerer Datentransfer zw. 2 Tabellenblättern
24.04.2018 09:25:44
Matthias
Moin!
Könntest du nicht einfach das alte Blatt löschen, deine Backupseite reinkopieren und umbenennen? GEht natürlich nur, wenn da keine Makros im hintergrund auf der Seite sind und es nur die selben Daten sind.
VG
AW: Schnellerer Datentransfer zw. 2 Tabellenblättern
24.04.2018 10:42:23
Jonas
hey, also das mit dem löschen ist vielleicht ein Ansatz, allerdings läuft im Hintergrund ein Makro ab in dem weitere Abfragen aus Access eingefügt werden. Theoretisch müsste man ihm doch aber zu Beginn des Makros sagen können lösche das alte Blatt und erstelle ein neues mit demselben Namen. Dann sollte das makro doch keine Probleme machen, da es sich sowieso um ein Modul handelt.
Ansonsten ist nicht vllt der Befehl ".Value" anstelle ".Copy" eine etwas schnellere Alternative? Leider bin ich in VBA noch nicht so fit und weiß nicht wie ich meinen Code anpassen müsste.
Anzeige
Value-Befehl
24.04.2018 18:09:34
KlausF
Hi Jonas,
der Value-Befehl lautet
wksSheet2.Range("AJ7:OL259").Value = wksSheet1.Range("A1:NC253").Value
Gruß
Klaus
AW: Die üblichen Verdächtigen
24.04.2018 10:48:57
mmat
Hallo,
das ist nicht besonders groß, der Kopiervorgang sollte auf keinen Fall mehr wie 2-3 Sekunden dauern.
Hast du denn die automatische Berechnung von Formeln ausgeschaltet? auch das ausschalten der Bildschirmaktualisierung ist oft hilfreich.
  Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

Anzeige
AW: Die üblichen Verdächtigen
24.04.2018 11:01:43
Jonas
Die beiden Befehle habe ich drin:
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
es liegt auch wirklich an der einen Zeile die ich in meinem Ausgangspost angegeben habe. Kommentiere ich diese aus, läuft das Makro in unter einer Sekunde durch
Anzeige
AW: Die üblichen Verdächtigen
24.04.2018 11:09:46
mmat
Hallo Jonas,
tja, dann kann ich mir das Laufzeitverhalten nicht erklären. Es hängt natürlich auch davon ab, wieviel Inhalt die einzelnen Zellen haben. Aber per Ferndiagnose oder Kristallkugen krieg ich das Phänomen nicht gelöst ...
Im übrigen ist der Vorschlag von Matthias gut, das sollte helfen.
Anzeige
AW: Die üblichen Verdächtigen
24.04.2018 11:52:08
Jonas
Im Prinzip ist es ein Schichtmodell für das komplette Jahr. In jeder der zu kopierenden Zellen steht ein Buchstabe als Abkürzung für die Schicht. Also eigentlich nicht viel Inhalt. Hinterlegt ist für den ganzen Bereich eine bedingte Formatierung, und je nach Buchstabe wird die Zelle gefärbt. Ich weiß nicht ob das evtl. das Problem ist.
Anzeige
AW: Die üblichen Verdächtigen
24.04.2018 15:30:39
mmat
Dann lösche in einer Kopie der Arbeitsmappe alle Formatierungen und vergleiche die Laufzeit
;

Forumthreads zu verwandten Themen

2 Tabellen verbinden ->zeilenweiser Mengenabgleich
Mike

Hallo erstmal,
als begeisterter Forumsleser habe ich schon viele Tage hier verbracht. Jetzt traue ich mich einmal hinein und hoffe auf Eure Hilfe.
Ich habe 2 laaange Tabellen. In Tabelle1 stehen (neben anderen Daten)
Teilenummer, Auftragsnummer, (Lieferwoche) und Stück und in Tabel...
16.10.2008 11:37:00
Thread-ID: 1016808
8 Beiträge
RowSource über 2 Tabellen -VBA
Wolfgang

Hallo,
mit cbbKriterium1.RowSource = "Grunddaten!a3:a6000" "bediene" ich in einem UF insgesamt 15 Comboboxes. Gibt es die Möglichkeit, nachdem ich einen weiteren Code für "Altdaten" habe, RowSource so umzustellen, dass sowohl "Grunddaten", als auch "Altdaten" zusammen abgefragt werden könne...
09.11.2008 13:49:00
Thread-ID: 1023061
9 Beiträge
2 Tabellen vergleichen und Pärchen bilden
Universal

Guten Abend Excel-Profis,
ich hoffe, dass ihr mir helfen könnt. Ich habe hier und auch in anderen Foren gesucht - natürlich auch was gefunden - aber ich konnte es nie in meine gewünschte Form umwandeln.
Ich habe 2 riesige Tabellen mit mehreren tausend Datensätzen und mehreren Spalten. L...
25.01.2009 21:52:00
Thread-ID: 1043691
6 Beiträge
Anzeige
Werte zuordnen aus 2 Tabellenblättern
123

Hallo, habe mal eine Makro-Excel Frage,
ich habe eine relativ grosse Excel Tabelle
hier steht folgendes
00/00006
00/00012
...
00/12547
00/45879
00/45885
...
etc in georndeter Reihenfolge
in einem Datenblatt habe ich auch diese Werte (teils auch andere...
25.03.2009 15:12:56
Thread-ID: 1063837
2 Beiträge
Anzeige
2 TabellenBlätter vergleichen - gleiche markieren
Andy

Hallo,
ich habe 2 unterschiedliche Tabellen in denen ein Mitgliederabgleich durch geführt werden soll.
In der Tabelle1 sind die Namen der Mitglieder einer Gruppe zusammen in einer Zelle hinter einander geschrieben; in der der Tabelle2 sind alle Mitglieder unter einander (jeweils neue Ze...
16.04.2009 11:44:02
Thread-ID: 1069028
13 Beiträge
2 Tabellen vergleichen, komplette Zeile kopieren
Marc

Hallo,
ich bin mit meinem Latein am Ende und es geht irgendwie nicht wie ich es mir vorstelle.
Folgendes Problem: Ich möchte gerne 2 Kriterien in 2 verschiedenen Workbooks miteinander vergleichen.
In diesem Fall handelt es sich um die Teilenummer und den Prozessvorgang.
Wenn...
07.07.2009 20:22:08
Thread-ID: 1087035
6 Beiträge
Gültigkeit auf 2 Tabellenblätter
Konrad

Hallo,
ich möchte ein Tabellenblatt mit der Gültigkeit einer Liste abfragen wobei die Liste für die Gültigkeitsprüfung im 2. Tabellenblatt steht, geht das?
Danke für die Hilfe
Gruß
Konrad
09.07.2009 15:11:50
Thread-ID: 1087453
4 Beiträge
2 Tabellen vergleichen
Hubert

Hallo Spezialisten,
ich, blutiger Laie was VBA angeht muss in zwei Tabellen die Daten miteinander vergleichen und bei Übereinstimmung in zwei Feldern die entsprechende Zeile farblich markieren.
Ächz, Stöhn.... da weiß ich echt alleine nicht weiter.
So sieht die Basis aus:
Tabell...
05.08.2009 10:33:06
Thread-ID: 1093683
5 Beiträge
2 Tabellen aus 2 Dateien miteinander vergleichen
Frank

Hallo zusammen,
Ich habe hier noch mal was für die Excel Cracks
Ausgangslage:
Protokolldatei (in dieser Datei befinden sich die Makros; und letztendlich die kopierten Zeilen in denen Unterschiede gefunden wurden)
Aus der Protokolldatei heraus (Datei1 Tabelle Monat07; Datei2 Tabe...
10.09.2009 02:30:35
Thread-ID: 1101552
2 Beiträge
Anzeige
2 Tabellenblätter vergleichen und abgleichen
Thomas

Servus
Besteht eine möglichkeit 2 tabellenblätter miteinander zu vergleichen und in prozent anzugeben wieviel treffer es gibt (konsistenz). Damit meine ich erst mal allg. jede Zelle.
Also prüfen ob der Wert einer Zelle im anderen Tabellenblatt erscheint.
Eigentlich möchte ich nur p...
14.10.2009 22:53:13
Thread-ID: 1109540
2 Beiträge
2 Tabellenblätter in ein PDF nicht möglich
Joachim

Hallo,
ich möchte per VBA das 3. und 4. Tabellenblatt als PDF in EIN Dokument bringen:
Dim n As Integer
Sheets(3).Select
For n = 3 To Sheets.Count
Sheets(n).Select False
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True
25.11.2009 08:17:45
Thread-ID: 1119865
6 Beiträge
Daten aus 2 Tabellen untereinanderschreiben
Nicole

Hallo alle,
ich habe schon einen Code, der mir bestimmte Spalteneinträge von einem Tabellenblatt in ein anderes (GESAMT) schreibt. Jetzt will ich nur noch, dass aus einem 3. Tabellenblatt auch die Daten in GESAMT geschrieben werden, und zwar ganz einfach unten angehängt. Irgendwie komm ich...
10.12.2009 14:06:25
Thread-ID: 1122876
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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