Select
25.02.2016 18:52:55
Wolfgang
ich bekomme nachstehenden Kode nicht hin und bin, nach vielen Versuchen, absolut ratlos.
Sub Kopieren()
Dim strAppPfad As String
Dim strQuelleMappe As String
Dim strZielMappe As String
strAppPfad = "D:\Benutzer\WS\Documents\EXCEL-Beispiele\Versuche\"
strQuelleMappe = "Test1.xlsm"
strZielMappe = "Test2.xlsm"
Workbooks(strAppPfad & strQuelleMappe).Worksheets("Tabelle1").Range("A3:I7").Copy _
Workbooks(strAppPfad & strZielMappe).Worksheets("Tabelle1").Range("A5") ' _
Laufzeitfehler 9
Application.CutCopyMode = False
End Sub