Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte zeilenweise kopieren und Ergebnis zurück schreiben

Forumthread: Werte zeilenweise kopieren und Ergebnis zurück schreiben

Werte zeilenweise kopieren und Ergebnis zurück schreiben
15.05.2024 16:15:12
Mario
Hallo zusammen,

vorweg: was das ganze Thema VBA angeht bin ich mehr oder weniger ein unbeschriebenes Blatt, von der Nutzung des Recorders und ein paar Modifikationen am dadurch entstehenden Code einmal abgesehen. Ich hoffe trotzdem, dass Ihr mir ein wenig weiter helfen könnt.

Folgende Herausforderung:

Ich hab in Tabellenblatt 1 drei Spalten (A, B, und C) mit Daten (Länge/Breite/Höhe). Insgesamt >60.000 Datensätze. Ich möchte nun die ersten 3 Zahlen A1, B1 und C1 kopieren und auf Tabellenblatt 2 in die Zellen A1, B1 und C1 als Werte einfügen. Daraufhin erscheint in Zelle D1 das Ergebnis einer recht komplexen Berechnung (die sich mit Hilfe von VBA sicher eleganter lösen lässt, als ich es derzeit tue - aber das soll hier nicht Gegenstand sein). Dieses Ergebnis soll nun wiederum als Wert neben meine Ursprungsdaten in Tabellenblatt 1 Zelle D1 geschrieben werden. Das Ganze dann Zeile für Zeile wobei die Zielzellen (A1, B1, C1) sowie die Quellzelle (D1) auf Blatt 2 natürlich immer gleich bleiben.

Ich hoffe es wird einigermaßen klar, was ich erreichen möchte und es hat jemand eine Idee, wie man das lösen könnte.

Besten Dank schon mal.
Mario

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte zeilenweise kopieren und Ergebnis zurück schreiben
15.05.2024 16:38:39
chagbox
Hallo Mario

Als Beispielberechnung wird hier in Spalte D die Summe aller Zahlen berechnet, das musst Du noch anpassen. Gruss Henner 



Sub CopyData()

Dim L, L_LRow As Long

Dim wksS, wksT As Worksheet

Set wksS = ThisWorkbook.Sheets("Tabelle1")

Set wksT = ThisWorkbook.Sheets("Tabelle2")

On Error Resume Next

L_LRow = wksS.Cells(Rows.Count, 1).End(xlUp).Row

For L = 1 To L_LRow Step 1

    'Copy Row Source => Target

    wksT.Range(wksT.Cells(L, 1), wksT.Cells(L, 3)).Value = wksS.Range(wksS.Cells(L, 1), wksS.Cells(L, 3)).Value

    'Recht komplexe Berechnung

    wksT.Cells(L, 4).Value = Application.Sum(wksS.Range(wksS.Cells(L, 1), wksS.Cells(L, 3)).Value)

    'Copy Result Target => Source

    wksS.Cells(L, 4).Value = wksT.Cells(L, 4).Value

Next L

Set wksS = Nothing

Set wksT = Nothing

End Sub
Anzeige
AW: Werte zeilenweise kopieren und Ergebnis zurück schreiben
16.05.2024 15:30:27
daniel
Hi
wie sicherlich schon geschrieben wurde:
das Problem ist, dass jedes Ändern eines Zellwertes in Excel ein zeitaufwendiger Prozess ist, weil Excel dann einige Aufgaben im Hintergrund zu erledigen hat.
Dabei ist es allerdings so, dass Excel diese Aufgaben "gebündelt" durchführen kann , dh Range("A1:A60000").value = 1 dauert nur unwesentlich länger als Range("A1").Value = 1
Daher sollte man, wenn man viele Zeilen hat, immer versuchen die Zugriffe auf Excelzellen nicht einzeln, sondern mit möglichst großen Zellbereichen durchzuführen.

die entscheidende Frage ist:
Findet die Berechnung auschließlich in der Zelle D1 statt oder gibt es noch weitere Zellen mit Formeln die von Länge/Breite/Höhe abhängig sind und die Einfluss auf das Ergebnis haben?
wenn die Berechnung ausschließlich in D1 stattfindet, wäre eine Möglichkeit, die Formel aus D1 hinter die Spalten mit den Werte zu kopieren und dann das Ergebnis durch die Werte zu ersetzen.

ansonsten müsste man versuchen, die Berechnung vollständig in VBA abzubilden.
dann könnte man die L/B/H-Werte in ein Array einlesen, damit die Ergebnisse innerhalb von VBA berechnen und dann alle Ergebnisse in einem Schritt in die Zellen zurückschreiben.

wie du siehst, so ganz allgemein wirds schwierg, man müsste schon konkreter werden.

kanns du mal eine Beispieldatei mit ein paar Daten zeigen (es müssen nicht 60.000 sein, ein paar reichen)

Gruß Daniel
Anzeige
AW: Werte zeilenweise kopieren und Ergebnis zurück schreiben
17.05.2024 08:40:32
Mario
Guten Morgen ihr beiden,

Vorweg: das Makro ist nach ca. 5 Stunden erfolgreich durchgelaufen. Zum Glück muss ich das auch nicht regelmäßig machen. Mit dem Ergebnis kann ich so weiterarbeiten. Vielen für die Hilfe!

Eure Erläuterungen und die Tatsache, dass er deutlich schneller gehen würde, wenn die Berechnung in VBA durchgeführt wird, kann ich nachvollziehen bzw. habe ich mir auch schon so gedacht. Tatsächlich ist es wie daniel vermutet: Es ist nicht nur eine Formel, sondern die Werte werden in eine Matrix (nicht im Exel-Formel-Sinn) gezogen, dann finden etliche verschaltete WENN Funktionen statt, gefolgt von einem WVERWEIS und abschließen noch eine MAX-Werte suche.

Ich kann die Aufgabenstellung ja mal kurz erläutern:
Ich habe (wie bereits geschrieben) eine Liste von Artikel mit den Angaben zu L/B/H. Für diese muss ich den kleinstmöglichen Behälter finden, in dem mindestens ein Stück Platz findet. Insgesamt habe ich 5 unterschiedlich große Behälter beginnend mit 60x40x30cm als Größten. Bei den weiteren 4 Typen halbiert sich jeweils die Grundfläche, die Höhe von 30cm bleibt aber konstant. Problem: Ich darf die Artikel drehen und wenden wie ich möchte, die Angegebene Länge kann also auch entsprechend der Höhe in Behälter sein.

Wenn ich euch darüber den Kopf zermartern möchtet, viel Spaß ;) Aber ich wie gesagt kann ich mit dem aktuellem Workaroud auch gut leben.

Beste Grüße
Mario

Anzeige
AW: Werte zeilenweise kopieren und Ergebnis zurück schreiben
16.05.2024 09:20:19
Mario
Moin Henner,

vielen Dank schon mal dafür! Ich konnte das Ganze einigermaßen nachvollziehen. Ich bin aber leider noch nicht ganz da, wo ich hin möchte:

1. Die "recht komplexe Berechnung" ;) findet mittels normaler Exelformel, teilweise mit WVERWEIS etc. statt. Soll heißen, wenn die Werte aus Tabelle 1 in Tabelle 2 kopiert wurden, muss Excel das Ergebnis berechnen, welches dann immer im Zelle D4 der Tabelle 2 erscheint. Meine Frage ist nun, ob ich Zeile mit der Summenbildung im Code einfach löschen kann oder ob dem Code ein kurzer Delay hinzufügen muss, bevor der Ergebnis dann mittel Makro zurück auf Tabelle 1 geschrieben werden kann.

2. Die Werte aus Tabelle 1 müssen immer genau in die Zellen A1, B1 und C1 der Tabelle 2 geschrieben werden (also Tabelle 1, Zeile 1 bis n immer nach Tabelle 2 Zeile 1). Derzeit werden diese in Tabelle 2 auch immer in eine neue Zeile geschrieben, was nicht sein soll.

Schönen Gruß
Mario
Anzeige
AW: Werte zeilenweise kopieren und Ergebnis zurück schreiben
16.05.2024 10:37:52
chagbox
Hallo Mario

Du kannst im Target Sheet einfach das L durch 1 ersetzen (Zeile) und die Berechnungsformel komplett entfernen. Probiere mal ob es nun so passt (Ungetestet). Rückmeldung wäre nett. Gruss Henner 




Option Explicit



Sub CopyData()

Dim L, L_LRow As Long

Dim wksS, wksT As Worksheet

Set wksS = ThisWorkbook.Sheets("Tabelle1")

Set wksT = ThisWorkbook.Sheets("Tabelle2")

On Error Resume Next

L_LRow = wksS.Cells(Rows.Count, 1).End(xlUp).Row

For L = 1 To L_LRow Step 1

    'Copy Row Source => Target

    wksT.Range(wksT.Cells(1, 1), wksT.Cells(1, 3)).Value = wksS.Range(wksS.Cells(L, 1), wksS.Cells(L, 3)).Value

    'Copy Result Target => Source

    wksS.Cells(L, 4).Value = wksT.Cells(1, 4).Value

Next L

Set wksS = Nothing

Set wksT = Nothing

End Sub
Anzeige
AW: Werte zeilenweise kopieren und Ergebnis zurück schreiben
16.05.2024 14:03:36
Mario
Top, das scheint schon mal funktioniert zu haben. Zumindest in meiner kleinen Testumgebung läuft es 1A durch.

In meinem Hauptdokument mit 60.000 Sätzen und mehr als nur einer einfachen Addition läuft es nun aber bereits seit 3 Stunden. Excel ist aber zumindest noch nicht eingefroren und zeigt immer ganz kurz die Auslastung der Kerne an. Ich bleibe mal geduldig.

Vielen Dank auf jeden Fall!

Mario
Anzeige
AW: Werte zeilenweise kopieren und Ergebnis zurück schreiben
16.05.2024 14:53:27
chagbox
Hallo Mario

3 Stunden ist definitiv zu lang. Du solltest Deine Berechnung in den VBA Code integrieren, so wie in meiner 1. Lösung.
Zeige doch mal bitte Deine Formel. Das hin und her Kopieren entfällt dann auch komplett. Gruss Henner

Forumthreads zu verwandten Themen

Zeilen selektiv kopieren und löschen
stelud

Hallo,
folgendes Beispiel mit 5 Zeilen :
A B C D
12 12 555 2222
13 13 555 2222
14 14 555 2222
24 24 600 2244
25 25 555 2222
28 28 555 2222
29 29 555 2222
30 30 555 2222
34 34 600 2244
39 39 555 2222
Ich möchte nun alle Zeilen, bei den...
17.11.2008 10:11:00
Thread-ID: 1025093
11 Beiträge
Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
aus E:E kopieren und am Ende von D:D einfügen
D:D

Hallo,
Ich habe in meiner Adressliste in D:D Straßennamen stehen, und in E:E die Hausnummern. Ich möchte die Hausnummern aber direkt hinter den Straßennamen in die selbe Zelle einfügen.
Da es sehr viele Zeilen sind möchte ich es ungern manuell machen.
Wie würdet Ihr das machen?
19.11.2009 11:46:47
Thread-ID: 1118567
3 Beiträge
Benutzten Bereich kopieren und einfügen
Babs

Hallo zusammen,
ich bin noch neu hier und konnte leider auf das thema von Dieter
"Benutzten Bereich kopieren von Dieter vom 19.10.2009 17:43:03 " keinen Beitrag schreiben, geht irgendwie nicht !
wenn es doch möglich ist da was reinzuschreiben dann würd ich gerne wissen wie ?
M...
07.12.2009 09:42:46
Thread-ID: 1122130
15 Beiträge
Makro kopieren und einfügen fehlerhaft
Chris

Hallo und ein frohes Neues zusammen!
Letzte Woche habe ich folgenden Beitrag geschrieben (https://www.herber.de/forum/archiv/1124to1128/t1126236.htm) und von Jürgen eine schon recht gute Antwort bekommen. Er hat mir folgendes File mit einem Makro bereitgestellt, das glaube ich relativ nahe...
04.01.2010 09:49:22
Thread-ID: 1126968
12 Beiträge
kopieren und einfügen per makro
rolf

hallo
ich möchte in tabelle 1 - zeile a3 bis a79 kopieren und dann
in tabelle 2 per makro in die erste freie zeile einfügen.
spalte b wird immer ausgefüllt.
wäre dankbar für eure hilfe.
mfg rolf
10.01.2010 22:49:24
Thread-ID: 1128765
11 Beiträge
Anzeige
Zeilen kopieren, wenn Kriterium gefunden
tco99


Hallo zusammen,
ich habe mal wieder eine Bitte.
Ich habe eine Beispieldatei, in der es ein Worksheet mit dem Namen "Quelle" gibt. Dieses Worksheet enthält die Daten. Es sind 5 Spalten. Ein zweites Worksheet heißt "Ziel". Dort sollen die Zeilen hinkopiert werden, die bestimmte Krite...
16.02.2010 12:30:42
Thread-ID: 1138866
7 Beiträge
Zeile einfügen und kopieren
Matthias

Hallo zusammen,
ich habe wieder mal ein kleines Problem und komme nicht ganz zurecht damit.
Ich habe ein Tabellenblatt mit z.Zt. knapp 4000 Einträgen (Zeilen) und mehreren Spalten (Spalten A bis AB).
Jetzt will ich irgendwo eine neue Zeile einfügen, dabei sollte der Inhalt von einig...
12.03.2010 07:32:25
Thread-ID: 1145269
10 Beiträge
Kopieren und einfügen wenn beschrieben dann rechts
Eva-Maria

Hallo zusammen,
Ich brauche wiedermal eure hilfe. Ich habe zwei Tabellenblätter und möchte vom "CHF" Tabellenblatt Daten in das "Jan" Tabellenblatt kopieren. Wenn nun das Jan Tabellenblatt in dieser Zeile schon etwas eingetragen hat dann sollte es eine Zeile nach rechts eintragen. Wie muss...
24.06.2010 07:37:58
Thread-ID: 1163793
3 Beiträge
Filtern und wegkopieren von bestimmten Zeilen
Josef

Guten Morgen!Ich habe z.B.in der Tabelle1 in Spalte A 20 Zeilen mit 1, danach 45 Zeilen mit 2, danach 80 Zeilen mit 3 usw.(von 1-9)Jetzt sollen alle Zeilen in denen in der Spalte A eine 2 vorkommt ausgeschnitten und in ein neues Blatt z.B.Tabelle2 kopiert werden. Das gleiche mit 3 in Tabelle3 u...
07.05.2002 08:43:09
Thread-ID: 119035
7 Beiträge
Anzeige
Anzahl Leerzeilen einfügen
Erwin_Geer

Guten Abend,
ich muss immer wieder an verschiedensten Stellen in einer Tabelle Leerzeilen einfügen: hierfür markiere ich eine Zelle und mach dann "ALT E und E" und bekomme eine einzige Zeile überhalb der aktuellen Position eingefügt; soweit so gut.
Manchmal weis ich ganz genau, ich brau...
28.09.2010 21:34:15
Thread-ID: 1179817
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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