hallo,
ich hab ein kleines problem mit excel. ich möchte die komplette letzte reihe aus tabellenblatt1 aus datei1 kopieren und an die letzte zeile in an tabellenblatt2 in datei2 anhängen. ich hab zwar jede menge links zum auffinden der letzten zeile gefunden, aber leider keinen der mein problem genau entspricht. achso, ich bin ziemlicher vba-anfänger, wäre mir also lieb wenn es eine einfache nachvollziehbare lösung gibt. vielen dank im voraus,
grüße peter
ich hab ein kleines problem mit excel. ich möchte die
komplette letzte reihe aus tabellenblatt1 aus datei1 kopieren
und an die letzte zeile in an tabellenblatt2 in datei2
anhängen. ich hab zwar jede menge links zum auffinden der
letzten zeile gefunden, aber leider keinen der mein problem
genau entspricht. achso, ich bin ziemlicher vba-anfänger, wäre
mir also lieb wenn es eine einfache nachvollziehbare lösung
Hi Peter,
die letzte gefüllte Zeile bekommst du mit
zei1=thisworkbook.worksheets(„Tabelle1“)Range(„A65536“).End(xlup).row
oder
zei1=Worksbooks(„Datei1.xls“).worksheets(„Tabelle1“)Range(„A65536“).End(xlup).row
und wennn du magst, gleich sauberen Stil ohne Select
...
set wkb1=thisworkbook
set wkb2=workbooks("Datei1.xls")
set wks1=wkb1.worksheets("Tabelle5")
set wks2=wkb2.worksheets("Tabelle3")
with wkb1.wks1
.rows(zei1).copy destination:=wkb2.wks2.cells(zei2+1,1)
end with
...
Gruß
Reinhard