VBA hilfe Fehler ignorieren

Forumthread: VBA hilfe Fehler ignorieren

22.02.2018 06:37:07

Tim

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA hilfe Fehler ignorieren

22.02.2018 08:37:11

MCO
AW: VBA hilfe Fehler ignorieren

22.02.2018 08:43:11

ChrisL

AW: VBA hilfe Fehler ignorieren

22.02.2018 08:37:11

MCO

Guten Morgen!
Versuch das mal:


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

Gruß, MCO

AW: VBA hilfe Fehler ignorieren

22.02.2018 08:43:11

ChrisL

Hi Tim

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

cu
Chris

Beliebteste Forumthreads (12 Monate)

Forumthread: VBA hilfe Fehler ignorieren

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread