Range kopieren über VBA

Bild

Betrifft: Range kopieren über VBA von: Torsten K.
Geschrieben am: 09.03.2005 15:22:20

Hallo beisammen,

mit

Sub PCA_Copy()
    Range(Cells(2, ActiveCell.Column), Cells(200, ActiveCell.Column)).Copy    
End Sub


kopiere ich den Range von Zeile 2 bis 200 der Spalte, in der sich der Cursor gerade befindet. Jetzt möchte ich den Code so umgestalten, daß

- unabhängig von der Position des Cursors
- die Anzahl der Zeilen in Spalte A gezählt werden
- der Range (A2:D'letzte Zeile aus Anzahl der Zeilen')
kopiert wird.

Das ist leider etwas viel für mich auf einmal. Könnt Ihr mir unter die Arme greifen. Vielen Dank schon mal im voraus.

Gruß
Torsten
Bild


Betrifft: AW: Range kopieren über VBA von: u_
Geschrieben am: 09.03.2005 15:42:54

Hallo,

iRows=Range("A65536").end(xlup).row
Range(cells(2,1),cells(iRows,4)).copy

Gruß


Bild


Betrifft: AW: erledigt - mT von: Torsten K.
Geschrieben am: 09.03.2005 15:56:03

Hallo Udo,

paßt wunderbar.
Vielen Dank und

Gruß
Torsten


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Range kopieren über VBA"