Letzte Zelle & dann Bereich kopieren ....
01.03.2007 22:52:20
proxima05
trotz intensiver Recherche habe ich leider noch keine Lösung gefunden. Mit dem folgenden Code öffne ich eine Datei, aus der ich einen variablen Datenbereich kopieren möchte.
=================================
Private Sub CommandButton1_Click()
Workbooks.Open Filename:= _
"C:\Daten\daten.xls"
Sheets("DatenFilterExcel").Select
Selection.AutoFilter Field:=12, Criteria1:="UserName"
ActiveWorkbook.Sheets("DatenFilterExcel").Range("A1:O65536").End(xlUp).Select
Selection.Copy
End Sub
Über die o.g. Range möchte ich die letzte mit Inhalt existierende Zelle finden und dann ausgehend von A1 markieren. Leider wird mit der o.g. Code-Zeile nur die Zelle A1 markiert und zum Kopieren ausgewählt. Was läuft da falsch? .... kann mir da jemand helfen?
Neben der Spalte O würde ich außerdem noch gerne die Spalte P mit einbeziehen, die allerdings nicht immer Inhalt hat, weswegen ich über Bereich.Verschieben, ausgehend von Spalte O arbeiten möchte.
Wäre toll, wenn mir jemand einen Tipp gibt.
Danke & Gruß
Ralph