Public Sub Kopieren()
Dim QWB As Workbook
Application.ScreenUpdating = False
Set QWB = Workbooks.Open("D:\Users\Bernd\Desktop\Meldungen\Suchmeldungen.xlsx")
QWB.Worksheets("Suchmeldungen").Cells.Copy
With ThisWorkbook
.Sheets.Add After:=.ActiveSheet
.ActiveSheet.Name = "Suchmeldungen"
.ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
End With
QWB.Close False
Set QWB = Nothing
End Sub