Hallo zusammen,
ich bin was das Thema VBA angeht ein absoluter Anfänger und wende ich mich mit dem folgenden Problem an euch:
folgende Schritte sollen in der Arbeitsmappe DetailedStatement durchgeführt werden:
1) die Zeile von J2 bis M2 soll ausgeschnitten und auf O1 eingefügt werden.
2) die Zeile von J4 bis M4 soll ausgeschnitten und auf O3 eingefügt werden, ect., also die Zeilen werden immer um 2 erhöht, bis zur Zeile 10000, die Spalten bleiben immer gleich.
Range("J2:M2").Select
Selection.Cut
Range("O1").Select
ActiveSheet.Paste
3) Am Schluß soll noch jede zweite Spalte also 2,4 6,8 bis 10000 gelöscht werden.
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Ich hoffe ich habt mein Problem verstanden und könnt mir helfen.
Vielen Dank im Voraus!!! Gerhard
*Topic verschoben*
ich bin was das Thema VBA angeht ein absoluter Anfänger und wende ich mich mit dem folgenden Problem an euch:
folgende Schritte sollen in der Arbeitsmappe DetailedStatement durchgeführt werden:
1) die Zeile von J2 bis M2 soll ausgeschnitten und auf O1 eingefügt werden.
2) die Zeile von J4 bis M4 soll ausgeschnitten und auf O3 eingefügt werden, ect., also die Zeilen werden immer um 2 erhöht, bis zur Zeile 10000, die Spalten bleiben immer gleich.
Range("J2:M2").Select
Selection.Cut
Range("O1").Select
ActiveSheet.Paste
3) Am Schluß soll noch jede zweite Spalte also 2,4 6,8 bis 10000 gelöscht werden.
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Ich hoffe ich habt mein Problem verstanden und könnt mir helfen.
Vielen Dank im Voraus!!! Gerhard
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nikeee13“ ()