Gruppe
Ereignis
Bereich
Open
Thema
Arbeitsmappe öffnen und nach Beenden des Mausklicks schließen
Problem
Bei Mausklick auf die Schaltfläche soll eine Datei geöffnet, über den Maushaltezeitraum angezeigt und nach Beenden des Haltens wieder geschlossen werden.
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.
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