Letzte freie Zelle ohne Select markieren
Josef
Ich möchte Datensätze von einer Arbeitsmappe in eine andere geöffnete Arbeitsmappe mittels VBAS kopieren.
Die Markierung würde bis zum Kopieren der Datensätze klappen:
Sub Test()
Dim bereich As Range
Dim wks As Worksheet
Set wks = ActiveWorkbook.Worksheets("Tabelle1")
Set wks1 = Workbooks("Mappe2.xls").Worksheets("Tabelle1")
Set bereich = wks.Range("A2:DO" & wks.Range("DO65536").End(xlUp).Row)
bereich.Copy
End Sub
Wie würde hier bitte eine VBa Lösung aussehen?
Danke
Josef