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*

Willkommen im Forum.

Gerhard Huber schrieb:

Ich hoffe ich habt mein Problem verstanden und könnt mir helfen.

Bezieht sich die Beschreibung auf eine Excel-Arbeitsmappe?
Schwebt Dir eine VBA-Anwendung vor oder soll das in einer VB.NET-Anwendung erledigt werden?

es bezieht sich auf eine excel arbeitsmappe, u. es soll ein modul programmiert werden.(ALT+11 VBA Project - Module),.
mich interessiert wie mann die schleife programmiert, u. die zeile(J2) immer um 2 erhöht

Servus Gerhard,

bist im falschen Forum gelandet, wird aber bestimmt gleich verschoben.
Meinst du das so hier:
(vergiss die Sicherungskopie nicht... Strg+Z gibts nicht! )
Tabellenblattnamen anpassen!!


lg Markus

Lieber Markus,

der Code hat gleich beim ersten mal funktioniert, super !!!
Vielen Dank für die schnelle Hilfe
Alles Gute

Viele Grüße Gerhard

Servus,

hab grad gesehen , dass am Ende vom Code Application.ScreenUpdating = False steht..
Muss natürlich wieder auf Application.ScreenUpdating = True gesetzt werden!!!

lg