Hallo VBA Gemeinde,
ich möchte per VBA eine Zeile aus Datei-A in Datei-B kopieren.
Datei-B hat einen Autofilter, den ich vor dem einfügen der Zeile zurücksetzen möchte.
Ich habe schon verschiedene Möglichkeiten ausprobiert, doch leider keinen Erfolg gehabt, da meistens der Fehler
"Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden" erscheint.
Der Code funktioniert solange ich das mit dem Filter löschen oder zurücksetzen weglasse.
Er setzt den Filter korrekterweise zurück, kann aber die zu kopierende Zeile nicht einfügen.
Sub export()
Dim strDatei, wks As Worksheet, wb As Workbook
Dim lastrow As Long
'Reportzeile kopieren
Call unprotect
Worksheets("assumptions").Rows(120).Copy
Set wb = Workbooks.Open("http://sp2013.teamwork.xxx.com/xxx/dpt-brm/New demands/tool development/DRAFT 2018 NDL Charge Back.xlsm")
activesheet.showalldata
'nächste freie zeile suchen
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'MsgBox "Lastrow is " & lastrow
Application.EnableEvents = False
Application.ScreenUpdating = False
'Daten kopieren
Cells(lastrow + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
'sortieren und Dubletten löschen