Office: VBA. Range-Cut-Paste-Verschieben

Hej Zusammen.

Habe folgendes Problem und finde die Lösung (noch) nicht. Hoffe auf eure Hilfe:

In meiner Tabelle sind Einträge von B3:G3. Die Einträge E3:G3 möchte ich verschieben nach B4, E5:G5 nach B6, E7:G7 nach B8 usw. Das ganze soll flexibel 80, 90 oder 100 mal durchgeführt werden.

So sieht der Code aus und funktioniert auch. Aber ...
Range("E3:G3").Cut Destination:=Range("B4")
Range("E5:G5").Cut Destination:=Range("B6")
Range("E7:G7").Cut Destination:=Range("B8")
Range("E9:G9").Cut Destination:=Range("B10")

ist viel Schreibarbeit und ich weiß, dass man in VBA ganz gut kurze Anweisungen schreiben kann.
Weiß jemand wie das geht? Freue mich auf Rückmeldung


Grüße - triskell

:)

 

For Loi=3 To 1001 Step 2
Range("E" & Loi ":G" & Loi").Cut Destination:=Range("B" Loi+1)
Next loi

mal Live, da ich keine Datei nachbaue.

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

 

Hej Hajo.

Vielen Dank erstmals für die schnelle Hilfe. Hat aber leider nicht geklappt ...

Anbei die Excel mit den Beispielen. Vlt ist's dann klarer. Hinzufügen muss ich noch, dass im erste Schritt der Tabelle die Anweisung Zeilen einfügen durchgeführt wird, die man leider nicht mit STRG Z rückgängig machen kann.

Schöne Grüße
triskell
*Smilie

 

Hallo,

PHP:

         Sub ZellinhalteVerschieben()
Dim loi As Long, loLetzte As Long

Application.ScreenUpdating = False

With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row
For loi = 3 To loLetzte Step 2
.Range("E" & loi & ":G" & loi).Cut Destination:=.Range("B" & loi + 1)
Next loi
End With

End Sub


 

Hallo Zusammen.

erledigt hat sich mein Problem leider noch nicht ...

Vielleicht könnt ihr noch mal drüber schauen. Ich habe die Excel nochmal hochgeladen, die Tabelle1 ist der erste Schritt: Zellen einfügen, damit im 2. Schritt in der Tabelle2 die Zellen aus Tabelle1 an die richtige Stelle verschoben werden.

Herzliche Grüße
triskell

 

Hej Werner, hej Hajo

vielen Dank, dass ihr mir geholfen habt. Das Thema hat sich erledigt. Die Anweisung von Werner sind perfekt. Es passt alles.

Viele Grüße
triksell

(Ich hoffe, ich finde den "erledigt" Button.

 

Vielen Dank an Hajo und Werner für eure Hilfe.

Der PHP Code von Werner passt genau und hat mir sehr weitergeholfen.

Grüße - triskell