per VBA Liste zum kopieren abarbeiten
26.09.2017 08:05:11
Carsten
ich muss eine Excel-Mappe gegen eine neuere Version austauschen.
In einem der Sheets sind Eingaben, welche in die neue Mappe übernommen werden sollen.
Ich öffne (manuell) die alte Datei und habe ein Add-In geschrieben.
Das Add-In öffnet die neue Mappe vom Laufwerk, kopiert den Sheet der alten Mappe in dem die zu kopierenden Daten sind in die neue Mappe, kopiert die einzelnen Zellinhalte in den neuen Sheet, löscht den vorher kopierten Sheet und speichert die neue Mappe unter dem Namen der alten Mappe ab. Soweit so gut.
Der Punkt "kopiert die einzelnen Zellinhalte" ist jetzt aber sehr viel Code.
Hier würde ich gerne so ansetzen:
Zellen die kopiert werden sollen in einer Liste im Code definieren:
1 B1:B5
2 C3:C30
3 usw.
Diese Liste per Loop oder ähnlichem abarbeiten:
Do until...
Worksheets(1).Range(1.Listenpunkt).Copy
Sheets("Kalkschema-2015-VP").Select
Range(1.Listenpunkt).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Loop
Das würde alles deutlich übersichtlicher machen, besonders bei Veränderungen der zu kopierenden Zellen.
Ist das so möglich?
Danke für eure Unterstützung im Voraus.
Gruß Carsten