lt. meines Codes, werden in der Mappe Mix.xls ,Daten aus der Mappe1, Tabelle2 kopiert.
Nun ist es aber so, dass in der Mappe Mix.xls schon Daten stehen.
Um aber nicht evtl. vorhandenen Daten zu überschreiben, versuche ich die nächste leere Zeile zu finden , um erst ab da einzuspeichern.
Das ist mein Macro:
Windows("Mappe1").Activate
Sheets("Tabelle2").Select
Range("A1:L38").Select
Selection.Copy
Windows("Mix.xls").Activate
Range("a30").Select ' a30 habe ich angegeben, möchte aber das die nächste freie Zeile gef. wird
ActiveSheet.Paste
Range("A30").Select
Application.CutCopyMode = False
Ich habe versucht Range("A30").Select wegzulassen und statt dessen Cells(Rows.Count, 3).End(xlUp).Row einzusetzen, was zu einem Fehler führte
Genauso der Versuch
Dim Loletzte As Long
Loletzte = 65536
If Range("A65536") = "" Then Loletzte = Range("A65536").End(xlUp).Row
Ich habe in der Recherche dieses Paket gefunden, kann es aber nicht für mich umsetzen, vielmehr habe ich es versucht aber es gelingt nicht.
Archivpaket 312to316
Ist noch einmal jemand bereit mir hier zu helfen
Liebe Grüße Lisa