Thema: Arbeitsmappe öffnen und nach Beenden des Mausklicks schließen

ClassModule: Tabelle1

Private Sub cmdLoadFile_MouseDown( _
   ByVal Button As Integer, _
   ByVal Shift As Integer, _
   ByVal X As Single, _
   ByVal Y As Single)
   Dim sFile As String
   sFile = Range("B1").Value
   If Dir(sFile) = "" Then
      Beep
      MsgBox "Datei wurde nicht gefunden!"
      Exit Sub
   End If
   Workbooks.Open sFile, False, True
End Sub

Private Sub cmdLoadFile_MouseUp( _
   ByVal Button As Integer, _
   ByVal Shift As Integer, _
   ByVal X As Single, _
   ByVal Y As Single)
   ActiveWorkbook.Close savechanges:=False
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open