VBA Datenübertragung
07.01.2021 12:46:55
Marko
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.