Copy PasteSpecial
12.06.2019 10:26:41
Michael
Habe mir einen Code zum Kopieren und einfügen von Werten gebastelt. Leder stolpert Excel über die Zeile "BezA.Cells.Select"
Kann mir jemand bei diesem Fehler helfen und ihn korrigieren? Vielleicht gibt es ja auch noch eine bessere (einfachere) Lösung dafür.
Zusatzfrage: Kann (und wenn ja, wie) eine Prüfung eingebaut werden, ob die beiden Zieldateien geöffnet sind, und falls geschlossen, geöffnet werden. Alle 3 Dateien sind in einem Ordner.
Vielen Dank für eure Hilfe
Const WBzB = "Verteilung 2019 NRW.xlsm"
Sub ExvoorCopy()
Dim BezA As Object
Dim BezB As Object
Set BezA = Workbooks(WBzA).Worksheets("Exvoor")
Set BezB = Workbooks(WBzB).Worksheets("Exvoor")
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Exvoor")
Cells.Copy
BezA.Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
BezB.Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Verteilung").Range("B7").Select
End With
Application.ScreenUpdating = True
End Sub