Hallo ihrs !
Es geht sich um folgendes Szenario:
Aus einer grossen Tabellen sollen pro Row einzelne Excelblätter angelegt werden.
Mit dem Macrorekorder ist das für eine Zeile auch kein Problem. Da die Tabelle aber etwas größer ist wäre es eine Arbeit für eine komplette Abteilung dies per Hand für jede Zeile zu machen.
im Macrorekorder steht nun z.B. zum Herauskopieren folgendes:
Range(„B7“).Select
Selection.Copy
Mir schwebt eine „For“ Schleife vor ,die aus der aktuellen zeile jeweils eine bestimmte Column in die Zwischenablage kopiert.
Aber wie realisiere ich so etwas?
Aus dem Bauch ins „unreine“ getippt würde mir so etwas vorschweben:
Range(actualRow,column7).Select
selection.Copy
und danach käme das Einfügen ins neue File.
Kann mit jemand auf die Sprünge helfen wie man diesen Select-Befehl benutzt um jeweils eine bestimmte Column in der aktuellen Zeile zu kopieren?
1000 Dank schonmal! 
Frank
Kann mir jemand auf die Sprünge helfen wie man diesen
Select-Befehl benutzt um jeweils eine bestimmte Column in der
aktuellen Zeile zu kopieren?
Hallo Frank,
Range(„B7“).Select
Selection.Copy
ist Ok, dann
Range(Selection, Cells(i, j)).Select
Selection.Copy
Sheets(Neu).Select 'Blatt wählen
und einfügen.
i ist Zeile, j ist Spalte, entweder direkt eintragen oder vorher zuweisen, was gewünscht ist, z.B. i=5, j=2, dann werden von der aktuellen Position aus 5 Zeilen und 2 Spalten kopiert.
i kann man also hochzählen --> For-Schleife
Viele Grüße von Jutta
Range(„B7“).Select
Selection.Copy
Range(Selection, Cells(i, j)).Select
Selection.Copy
Sheets(Neu).Select 'Blatt wählen
und einfügen.
… z.B. i=5, j=2, dann werden
von der aktuellen Position aus 5 Zeilen und 2 Spalten kopiert.
i kann man also hochzählen --> For-Schleife
Hm, ja, das hilft mir schon mal weiter, kann man denn den Zeiger auf die aktuelle Zeile hochzählenlassen?
So á la „while not actualsheet.eof do [kopiererei] actualsheet.next“ ?
dann müsste man nciht für jede Zeile eine Taste drücken um das Macro für die aktuelle position ausführen zu lassen…
Auf jeden Fall schon mal tausend dank!
Frank