welche Befehle muß ich im folgenden Code einfügen damit die Quelldatei wo der Code drinsteht, in diesem Fall: "Test1.xls" nach dem Öffnen von "Test2.xls" automatisch ohne Save geschlossen wird und damit aus der aktiven Leiste verschwindet?
Private Sub CommandButton1_Click()
Dim wbTest As Workbook
On Error GoTo ErrorHandler
Workbooks.Open Filename:="D:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Test2.xls"
End
ErrorHandler:
Set wbTest = Workbooks.Open("Test2.xls")
End Sub
Danke
Gruß
Wolfgang