Wie kann ich im folgenden Code beim schliessen der Datei verhindern, dass die Abfrage .. Zwischenablage erscheint
Mit Application.CutCopyMode = False passiert nichts.
Besten Dank und Gruss
Hugo
Sub Test()
Dim objExcel As New Excel.Application
Dim objSheet As Object
Dim DB_Register As String
Dim DB_Dateiname As String
DB_Dateiname = ThisWorkbook.Sheets("StartRegister").Range("C16")
DB_Register = ThisWorkbook.Sheets("StartRegister").Range("C17")
ThisWorkbook.Sheets("Umwandlungstabelle").Activate
ThisWorkbook.Sheets("Umwandlungstabelle").Range("A1").Select
On Error GoTo DBDateiSchliessen
objExcel.Workbooks.Open ActiveWorkbook.Path & "\" & DB_Dateiname
Set objSheet = objExcel.Sheets(DB_Register)
objSheet.Cells.Copy
ThisWorkbook.Sheets("Umwandlungstabelle").Paste
Application.CutCopyMode = False
DBDateiSchliessen:
objExcel.ActiveWorkbook.Close SaveChanges:=False
objExcel.Quit
Set objExcel = Nothing
Set objSheet = Nothing
Application.CutCopyMode = True
End Sub