zwei exceltabellen zusammenfügen
22.10.2007 13:41:40
Reptil
ich habe zwei exceltabellen, die vom aufbau her identisch sind. nun möchte ich die eine per makro unter die andere kopieren. gedacht hatte ich das so:
Workbooks.Open dateiname2
Visible = True
ActiveWorkbook.Sheets("Tabelle1").Range("A30", Range("M65536")).End(xlUp).Select
Selection.Copy
Workbooks.Open dateiname
Visible = True
ActiveWorkbook.Sheets("Tabelle1").Select
LoLetzte = Cells(Rows.Count, 12).End(xlUp).Row + 1
Cells(LoLetzte, 1).Select
ActiveSheet.Paste
ActiveWorkbook.Save
Quit
leider wird so nur die zelle A1 kopiert. meiner vermutung nach hängt das mit dem End(xlUp) zusammen, aber ohne das makiert er ja alles von zeile 30 ab, was dann beim einfügen natürlich wieder probleme gibt.
"ActiveWorkbook", "Workbooks.Open" usw brauche ich, da ich das ganze später von access aus steuern möchte. der fehler liegt hier aber ganz klar am excel code.
grüße
Reptil
ps: ich weiß, auf select kann in 99,98257% (ca.) der fälle verzichtet werden, aber ich wusste nicht, wie ich es sonst lösen sollte.... änderungswünsche dahingegend sind natürlich auch wilkommen ;-)