Bereich markieren und kopieren
03.10.2008 22:42:00
Thomas
ich habe hier ein Makro das mir die Zeilen und Spalten markieren soll welche Daten enthalten in dem es mir die letzte befüllte Zeile und Spalte sucht, anschliessend diesen Bereich makiert und kopiert, dann ein anderes Tabellenblatt öffnet einen Range ("A6:K4") selectiert und dort die Daten ablegt.
Das klappt schon mal mit dem Code ganz gut.
Mein Problem ist nun, das beim erneuten kopieren von Daten die vorhandenen überschrieben werden, und eigentlich sollten diese nur angefügt werden.
Leider steh ich auf dem Schlauch und komm nicht weiter...;-)
Hier mein Code:
Sub Bereich_markieren()
Dim lngLetzteZeile As Long
Dim lngLetzteZeile_Neu As Long
lngLetzteZeile _
= Worksheets("Report finance").Range("A65536"). _
End(xlUp).Row
' Markieren von A3 bis An
Worksheets("Report finance").Range(Cells(6, 11), _
Cells(lngLetzteZeile, 1)).Select
Selection.Copy
Sheets("Invoices").Select
lngLetzteZeile_Neu _
= Worksheets("Invoices").Range("A65536"). _
End(xlUp).Cells
Worksheets("Invoices").Range(Cells(6, 11), _
Cells(lngLetzeSpalte, 1)).Select
Range("A4:K4").Select
ActiveSheet.Paste
End Sub
Gruß
Thomas
Anzeige