Blatt kopieren

Sub NEU()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim OeffneneName As String
Dim wbkAlt As Workbook
Dim wbkNeu As Workbook
Application.ScreenUpdating = False
Set wbkAlt = ActiveWorkbook
Qe = MsgBox("Bitte geben Sie die aktuelle Inputdatei für die Ratenkalkulation an!", vbQuestion + vbOKOnly, "Source Definition")
OeffnenName = Application.Dialogs(xlDialogOpen).Show
Set wbkNeu = ActiveWorkbook
Sheets(1).Cells.Copy Destination:=Workbooks(wbkAltName).Sheets("Original_Data_Copy").Cells(1)
wbkNeu.Close savechanges:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Sheets("Original_Data_Copy").Range("A1").Select
End Sub