Kopieren und einfügen
15.03.2013 09:31:44
Kai
wieder einmal ein Problemchen!
Ich habe im Tabellenblatt 1 und 2 in den Feldern C6 - F6 einen Wert stehen.
Nun möchte ich diese Werte kopieren und im Tabellenblatt 4 in die Felder C6 - F6 untereinander Einfügen.
Ich kann das einfach machen mit folgender Formel machen:
Sheets("Tabelle2").Select
Range("C6:F6").Select
Selection.Copy
Sheets("Tabelle4").Select
Range("C6").Select
ActiveSheet.Paste
Sheets("Tabelle3").Select
Range("C6:F6").Select
Selection.Copy
Sheets("Tabelle4").Select
Range("C7").Select
ActiveSheet.Paste
Das geht auch aber wenn dies über 12 Tabellenblätter läuft dauert es ne Weile bis er fertig ist! Kann man die Formel verkürzen?
Danke
Kai
Anzeige