Excel Vba Zeilen verschieben

Computer: Software & Programmierung Office Software
1

Ich möchte Zeilen mit geraden Zeilennummern an das Ende der jeweils vorhergehenden Zeile verschieben.

Wahlweise in eine neue Tabelle

2

Ich möchte Zeilen mit geraden Zeilennummern an das Ende der
jeweils vorhergehenden Zeile verschieben.

Wahlweise in eine neue Tabelle

Kopiert die Zeile n:
Rows(n).Copy

Fügt kopierte Zeile in die i.Zeile ein:
Rows(i).Select
Selection.Paste

ggf. vorher dort eine Zeile einfügen:
Rows(i).Select
Selection.EntireRow.Insert
Selection.Paste

Falls nur Zellen kopiert werden sollen:
cells(i,2)=cells(n,1)

Falls nur Text in Zellen kopiert werden sollen:
cells(i,1) = cells(i,1) & " " & cells(n,1)

3

Ups, da bin ich überfragt, sorry.

Ich möchte Zeilen mit geraden Zeilennummern an das Ende der
jeweils vorhergehenden Zeile verschieben.

Wahlweise in eine neue Tabelle

4

sorry habne hier keine lösung
TomKle

Ich möchte Zeilen mit geraden Zeilennummern an das Ende der
jeweils vorhergehenden Zeile verschieben.

Wahlweise in eine neue Tabelle

5

Ich verstehe die Frage nicht.
Soll beispielsweise der Inhalt der Zelle in der geraden Zeile a [10] in die ungerade Zeile 9 Spalte x verschoben werden?

Ich möchte Zeilen mit geraden Zeilennummern an das Ende der
jeweils vorhergehenden Zeile verschieben.

Wahlweise in eine neue Tabelle