[Excel 2003 / VBA] Zellen kopieren

Computer: Software & Programmierung Visual Basic
#1

Hi,

wie kann ich in VBA mehrere Zellen an eine andere Stelle im gleichen Tabellenblatt kopieren?

Beispiel:

Die Zellen A,E,F,I,J,L,N einer Zeile sollen in der gleichen Zeile z.B. ab Spalte S als A,F,E,I,J,L,Leerzelle,N erscheinen.

Ferner wäre es schön, wenn dann ab Spalte S in Zeile 1 jede kopierte Spalte einen neuen Titel erhält.

Kann mir da jemand nen Tipp geben? :wink:

Besten Dank im Voraus!

Christian

#2

Hallo,

sub kopieren

activesheet.cells(2,1).copy activesheet.cells(2,19) 'A2 nach S2
activesheet.cells(2,5).copy activesheet.cells(2,20) 'E2 nach T2
activesheet.cells(2,6).copy activesheet.cells(2,21) 'F2 nach U2
activesheet.cells(2,9).copy activesheet.cells(2,22) 'I2 nach V2
activesheet.cells(2,10).copy activesheet.cells(2,23) 'J2 nach W2
activesheet.cells(2,12).copy activesheet.cells(2,24) 'L2 nach X2
activesheet.cells(2,14).copy activesheet.cells(2,26) 'N2 nach Z2

activesheet.cells(1,19).value = „A“
activesheet.cells(1,20).value = „E“
activesheet.cells(1,21).value = „F“
activesheet.cells(1,22).value = „I“
activesheet.cells(1,23).value = „J“
activesheet.cells(1,24).value = „L“
activesheet.cells(1,26).value = „N“

end sub

Wenn zwischen den Zellen A2 bis N2 nix steht isses einfacher:

activesheet.range(„A2:N2“).copy activesheet.range(„S2:Z2“)

Gruß
Ronny

#3

Servus Ronny,

Danke für Deine Hilfe! Klappt bestens!

Ja, leider sind die Zellen nicht zusammenhängend und außerdem auch noch vertauscht in der Reihenfolge. :frowning:

Ciao,
Christian