Sub Import_Data_Versuchsdatenbank()
Dim Currentsheet
Set Currentsheet = ActiveSheet
Dim fDialog As FileDialog, result As Integer
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
fDialog.AllowMultiSelect = False
fDialog.Title = "Select a file"
fDialog.InitialFileName = "C:\"
fDialog.Filters.Clear
fDialog.Filters.Add "Excel files", "*.xlsx"
fDialog.Filters.Add "Excel files", "*.xlsm"
fDialog.Filters.Add "All files", "*.*"
If fDialog.Show = -1 Then
Debug.Print fDialog.SelectedItems(1)
End If
Dim app As New Excel.Application
app.Visible = False
Dim book As Excel.Workbook
Set book = app.Workbooks.Add(fDialog.SelectedItems(1))
book.Sheets("Input Versuchsdatenbank").Range("$C$19:$BU$22").Copy
Currentsheet.Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
DoEvents
book.Close SaveChanges:=False
app.Quit
Set app = Nothing
End Sub