Office-Fragen.de

Hallo und einen schönen guten Tag
ich habe eine Frage an Euch Spezialisten

habe volgenen  VBA
Sub CopyAktuelleSeite()
Intersect(ActiveSheet.Range("A:A,C:F"), ActiveSheet.Range("C5:C35").SpecialCells(xlCellTypeConstants, 3).EntireRow).Copy
Sheets("meine").Range("A11").PasteSpecial xlPasteValues
End Sub


klappt wunderbar aber würde gern das beim einfügen in ("meine ") E und F getauscht werden.
ich versuchte A:A,C,E,D:F
also 
A in A
C in B
E in C
D in D
F in E
ist das möglich ?
Gruß Thomas

Hallo,

mit .PasteSpecial xlPasteValues geht das nicht in einem Zug.

Entweder kopierst du einfach die Spalten hintereinander, die du haben willst, oder es wird wegen deiner uralt-Excelversion kompliziert.

Haben die Spalten Überschriften ? Dann hätte ich da etwas ... eventuell.

(23.12.2025, 23:04)Flotter Feger schrieb: [ -> ]Hallo,

mit .PasteSpecial xlPasteValues geht das nicht in einem Zug.

Entweder kopierst du einfach die Spalten hintereinander, die du haben willst, oder es wird wegen deiner uralt-Excelversion kompliziert.

Haben die Spalten Überschriften ? Dann hätte ich da etwas ... eventuell.

Hallo Frohe Weihnachten
ja erste Tabelle    A=Datum    B=leer    C=Start    D=Ende   E0Pause   F=Gesamt
in 2 Tabelle         A=Datum   B=Start   C=Pause   D=Ende    E=Gesamt

wenn das nicht gehen solte ,drehe ich halt in der ersten Tabelle d und e 
mfg Thomas