|
Ich möchte nun ein zweites Tabellensheet kopieren und unterhalb der oberen range einfügen.
Kann man nicht konkret beantworten ohne den Aufbau der Datei(en) zu kennen.
Allgemein gesagt:
'liefert - hier ausgehend von A1 - alle mit einem Inhalt beieinander liegenden Zellen
ActiveSheet.Range("A1").CurrentRegion
'liefert die letzte Zelle mit einem Inhalt - hier von Spalte A
ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp)
Die andere Datei(tabellensheet) ist nun aber in einem anderen Ordner.
Öffne diese wie du das schon bei der ersten getan hast mit Workbooks.Open, die Methode liefert dir eine Referenz auf diese Mappe zurück, daher solltest du diese auch zwischenspeichern (tust du derzeit nicht).
Desweiteren wie wäre es möglich, dass ich das Format übernehmen kann? habe es mit x1PasteFormats probiert und das funktioniert auch aber leider nur einmal... wenn ich das Makro erneut ausführe bekomme ich eine Fehlermeldung mit Index ausßerhalb des Bereichs...
Warum das geschieht ist hier so leider nicht nachvollziehbar. Definitv ist es möglich zuerst nur die Werte und anschließend nur das Format zu kopieren.
|