Kann ich den Pfad unten im VBA so einstellen das der Dateiname egal ist?
Wenn ich die Datei "Paramteams.xls" umbenenne läuft das Makro nicht mehr.
Workbooks.Add
Windows("Paramteams.xls").Activate
Sub tt()
With ThisWorkbook.ActiveSheet
.Range(.Range("M10"), .Range("M65536").End(xlUp)).Copy
End With
Workbooks.Add
ActiveSheet.Range("C2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Sub tt()
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Set wksQuelle = ThisWorkbook.ActiveSheet
Set wksZiel = Workbooks.Add.Sheets(1)
With wksQuelle
.Range(.Range("K10"), .Range("K65536").End(xlUp)).Copy
End With
wksZiel.Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
With wksQuelle
.Range(.Range("M10"), .Range("M65536").End(xlUp)).Copy
End With
wksZiel.Range("C2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Set wksQuelle = Nothing
Set wksZiel = Nothing
End Sub
Gruß