Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1804to1808
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
Inhaltsverzeichnis

VBA Datenübertragung

VBA Datenübertragung
07.01.2021 12:46:55
Marko
Hallo,
und wieder einmal benötige ich Eure Hilfe. Ich möchte eine größere Datenmenge von einem Sheet(„NO“) in das Sheet(„BV“) kopieren und übertragen. Die Struktur bzw. der Prozess soll wie folgt ablaufen:
In dem Sheet („NO“) befinden sich in den Zeilen 14 bis 10000 - 10 „Datensätze“ - in nebeneinander liegenden Spalten und sollen je Datensatz untereinander in den Sheet („BV“) kopiert und übertragen werden.
1. Sheet („NO“) Zelle DB14, Zelle DC14, Zellenbereich LA14:LH14, kopieren und übertragen in das als Tabelle formatierte Sheet(„BV“) Spaltenbereich A:J (ab der nächsten freie Zeile, ein Hinweis: diese Tabelle (Sheet „BV“) hat in Zeile 1 Überschriften),
2. Sheet („NO“) Zelle DB14, Zelle DC14, Zellenbereich LI14:LP14, kopieren und übertragen in das als Tabelle formatierte Sheet(„BV“) Spaltenbereich A:J (in die nächste freie Zeile),
3. Sheet („NO“) Zelle DB14, Zelle DC14, Zellenbereich LQ14:LX14, kopieren und übertragen in das als Tabelle formatierte Sheet(„BV“) Spaltenbereich A:J (in die nächste freie Zeile),
4. Sheet („NO“) Zelle DB14, Zelle DC14, Zellenbereich LY14:MF14, kopieren und übertragen in das als Tabelle formatierte Sheet(„BV“) Spaltenbereich A:J (in die nächste freie Zeile),
5. Sheet („NO“) Zelle DB14, Zelle DC14, Zellenbereich MG14:MN14, kopieren und übertragen in das als Tabelle formatierte Sheet(„BV“) Spaltenbereich A:J (in die nächste freie Zeile),
6. Sheet („NO“) Zelle DB14, Zelle DC14, Zellenbereich MO14:MV14, kopieren und übertragen in das als Tabelle formatierte Sheet(„BV“) Spaltenbereich A:J (in die nächste freie Zeile),
7. Sheet („NO“) Zelle DB14, Zelle DC14, Zellenbereich MW14:ND14, kopieren und übertragen in das als Tabelle formatierte Sheet(„BV“) Spaltenbereich A:J (in die nächste freie Zeile),
8. Sheet („NO“) Zelle DB14, Zelle DC14, Zellenbereich NE14:NL14, kopieren und übertragen in das als Tabelle formatierte Sheet(„BV“) Spaltenbereich A:J (in die nächste freie Zeile),
9. Sheet („NO“) Zelle DB14, Zelle DC14, Zellenbereich NM14:NT14, kopieren und übertragen in das als Tabelle formatierte Sheet(„BV“) Spaltenbereich A:J (in die nächste freie Zeile),
10. Sheet („NO“) Zelle DB14, Zelle DC14, Zellenbereich NU:OB14, kopieren und übertragen in das als Tabelle formatierte Sheet(„BV“) Spaltenbereich A:J (in die nächste freie Zeile).
Dann soll der gleiche Prozess in der Zeile 15, 16, 17 usw. bis zur ersten leeren Zelle in Spalte DB vom Sheet(„NO“) ausgeführt werden.
11. Sheet („NO“) Zelle DB15, Zelle DC15, Zellenbereich LA15:LH15, kopieren und übertragen in das als Tabelle formatierte Sheet(„BV“) Spaltenbereich A:J (ab der nächsten freie Zeile, usw.
Die Daten in der Tabelle sollen nach vollständiger Übertragung in den Sheet(„BV“), in dem Sheet(„NO“) aus dem Zellenbereich A14:A10000 gelöscht werden.
Vielen Dank für Eure Unterstützung.

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Datenübertragung
07.01.2021 13:02:51
Oberschlumpf
Hi Marko,
wo ist Bsp-Datei mit genug Datensätzen?
Ciao
Thorsten
AW: VBA Email mit Anhang als PDF
07.01.2021 13:21:26
Oberschlumpf
Hello again...
sorry, ich bin raus, weil:
Zitat: ...in das als Tabelle formatierte Sheet(„BV“) Spaltenbereich A:J (ab der nächsten freie Zeile, usw....
Deine Bsp-Datei enthält - nicht - das Tabellenblatt "BV".
Somit gibt es in "BV" auch nicht schon Datensätze, anhand derer die letzte, benutzte Zeile ermittelt werden kann, so dass man die nächste freie Zeile kennt.
Außerdem fehlt natürlich in "BV" die von dir erwähnte "formatierte Tabelle", was immer du damit auch meinst.
weiter viel Erfolg
Ciao
Thorsten
Anzeige
VBA Datenübertragung
07.01.2021 13:42:55
Marko
Hallo,
in der Beispieldatei beinhaltet jetzt die beiden angesprochenen Sheets.
Vielen Dank im Voraus für Eure Unterstützung.
Gruß, Marko
https://www.herber.de/bbs/user/142829.xlsx
AW: VBA Datenübertragung
07.01.2021 13:53:43
Yal
Hallo Marko,
Wenn ich sollte Daten-Tapette sehe...
Mein Vorschlag: nehm Dir 40 Minuten, um die 6 ersten Tutorial-Videos über Power Query anzuschauen.
Excel Hero Power Query Playlist:
https://www.youtube.com/playlist?list=PLy5TtUB84yrN2VVRzp8Tif8bxQKJD_2bo
Es sind sehr gut investierte 40 Minuten.
Nachtrag: bedenke auch IMMER: Trennung der Datenhaltung, Daten-Präsentation und Datenverarbeitung (Modell-View-Controller, heisst es). Nur so bekommst Du Excel-Dateien hin, die schlank, effizient und wartungsfreundlich sind.
Viel Erfolg
Yal
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige