mit diesem Code ziehe ich zwei Listen in einer Mappe. ( Makrorekorder)
Jetzt kommt beim Neustart des MAkro zwei Fehlermeldung / Hinweise
-Einmal wollen sie die Datei Speichern
-Irgendwas mit zwischenablage
Excel soll beiden gezogene Daten die Originalliste weder abspeichern sonder nur die Daten ziehen.
Anbei der Code
Sub GO()
Sheets("Tabelle3").Select
Workbooks.Open Filename:="L:\Transfer\Allgemein\O\Artikelliste.xlsb"
Rows("1:1").Select
ActiveSheet.ShowAllData
Selection.AutoFilter
Columns("A:R").Select
Selection.Copy
Windows("Mappe2").Activate
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets.Add After:=Sheets(Sheets.Count)
ChDir "G:\Transfer\Allgemein\WE\Artikelstatus"
Workbooks.Open Filename:= _
"L:\Transfer\Allgemein\W\A\Aktuell.xlsb"
Columns("A:N").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Mappe2").Activate
Columns("A:A").Select
ActiveSheet.Paste
Windows("Artikelliste.xlsb").Activate
ActiveWindow.Close
Windows("Aktuell.xlsb").Activate
ActiveWindow.Close
End Sub
Hoffe ihr könnt mir den Code verbessern.
Danke