Sub Saldovortrag()
Dim Ziel As Worksheet
Dim NewDatei As Workbook
Dim Pfad As String
Pfad = "X:\123\dat7-LH\"
ChDrive "X:\"
ChDir Pfad
Set Ziel = ThisWorkbook.ActiveSheet
If Application.Dialogs(xlDialogOpen).Show = False Then Exit Sub
Set NewDatei = Application.ActiveWorkbook
Worksheets(33).Range("D5:D70").Copy
Ziel.Activate
Ziel.Range("C5:C70").PasteSpecial _
Paste:=xlPasteValues
Application.CutCopyMode = False
NewDatei.Close SaveChanges:=False
Sheets(33).Select
Worksheets(33).Range("C5").Select
End Sub