VBA hilfe Fehler ignorieren

Hallo zusammen
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub GO() Sheets("Tabelle3").Select Workbooks.Open Filename:="L:\Transfer\Allgemein\O\Artikelliste.xlsb" If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData Columns("A:R").Copy 'du kannst hier den code von unten verwenden, wenn du nicht speziell _ nur Werte einfügen willst sondern alles Windows("Mappe2").Activate Columns("A:A").PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False Sheets.Add After:=Sheets(Sheets.Count) Workbooks.Open Filename:="L:\Transfer\Allgemein\W\A\Aktuell.xlsb" Columns("A:N").Copy Windows("Mappe2").Range("A1") 'kopieren+einfügen in einem Schritt Windows("Artikelliste.xlsb").Close 0 End Sub

Sub Makro1() Dim WB1 As Workbook, WB2 As Workbook, lZ As Long Dim WS1 As Worksheet, WS2 As Worksheet Const strPfad1 As String = "L:\Transfer\Allgemein\O\Artikelliste.xlsb" Const strPfad2 As String = "L:\Transfer\Allgemein\W\A\Aktuell.xlsb" Application.ScreenUpdating = False Set WB1 = ThisWorkbook Set WS1 = WB1.Worksheets("Tabelle3") WB1.Sheets.Add After:=WB1.Sheets(WB1.Sheets.Count) Set WS2 = ActiveSheet Set WB2 = Workbooks.Open(strPfad1) ActiveSheet.ShowAllData lZ = Cells(Rows.Count, 1).End(xlUp).Row WS1.Range("A1:R" & lZ) = Range("A1:R" & lZ).Value WB2.Close False Set WB2 = Workbooks.Open(strPfad2) ActiveSheet.ShowAllData lZ = Cells(Rows.Count, 1).End(xlUp).Row WS2.Range("A1:N" & lZ) = Range("A1:N" & lZ).Value WB2.Close False End Sub

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

200 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA hilfe Fehler ignorieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

200 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread