06.05.2019, 08:48
Hallo zusammen,
folgend mein Anliegen
ich muss Tabellen einer Datei (Datei 1) übertragen auf Tabellen einer anderen Datei (Datei 2).
Datei 1 wird immer wieder überschrieben, sodass die Anzahl der Tabellen variiert.
Von VBA habe ich weniger als keine Ahnung und meine einzige Hoffnung ist der Makro Recorder. Meine Idee ist es gewesen eine maximal Anzahl an Tabellen in Datei 1 zu generieren (10 Tabellen) und diese dann innerhalb der Aufzeichnung des Recorders zu übertragen.
Das Problem dabei:
enthält Datei 1 statt 10 nur 9 Tabellen funktioniert der Code nicht mehr, weil Active.Sheet10 nicht ausgeführt werden kann.
Habe ich also die Möglichkeit vor jedem Active.sheet eine wennfunktion einzubauen, die folgendes macht:
wenn sheetname=1; dann kopieren (dieser Teil wird mit dem Recorder bereits erledigt); ansonsten: wenn sheetName=2; dann kopieren; ansonsten wenn sheetName 3=dann kopieren.. und so weiter.
Vielen Dank für eure Antworten!
PS:
bei Bedarf kann ich die Aufzeichnung vom Recorder senden
folgend mein Anliegen
ich muss Tabellen einer Datei (Datei 1) übertragen auf Tabellen einer anderen Datei (Datei 2).
Datei 1 wird immer wieder überschrieben, sodass die Anzahl der Tabellen variiert.
Von VBA habe ich weniger als keine Ahnung und meine einzige Hoffnung ist der Makro Recorder. Meine Idee ist es gewesen eine maximal Anzahl an Tabellen in Datei 1 zu generieren (10 Tabellen) und diese dann innerhalb der Aufzeichnung des Recorders zu übertragen.
Das Problem dabei:
enthält Datei 1 statt 10 nur 9 Tabellen funktioniert der Code nicht mehr, weil Active.Sheet10 nicht ausgeführt werden kann.
Habe ich also die Möglichkeit vor jedem Active.sheet eine wennfunktion einzubauen, die folgendes macht:
wenn sheetname=1; dann kopieren (dieser Teil wird mit dem Recorder bereits erledigt); ansonsten: wenn sheetName=2; dann kopieren; ansonsten wenn sheetName 3=dann kopieren.. und so weiter.
Vielen Dank für eure Antworten!
PS:
bei Bedarf kann ich die Aufzeichnung vom Recorder senden