- buttons zum ausführen einiger Befehle beinhaltet (geht das überhaupt)
- Eingabefeld zum eingeben des Dateinames und Pfad, dass sich die letzten Eingaben merkt
Grüße
Darren
Sub test()
x = MsgBox("Ja", vbYesNoCancel)
Select Case x
Case Is = vbYes
MsgBox "Ja" 'weiterer Code
Case Is = vbNo
MsgBox "Nein" 'weiterer Code
Case Is = vbCancel 'auch das Schließkreuz
MsgBox "Abbruch" 'Abbruchcode
Case Else
Exit Sub
End Select
End Sub
Sub aufruf()
Dim Filename As String
On Error GoTo ende
Filename = InputBox("Geben sie den vollständigen Pfad und den Dateinamen ein")
If Dir(Filename) = "" Then
MsgBox "Gesuchte Datei wurde nicht gefunden."
Exit Sub
Else
Workbooks.Open Filename
End If
ende:
End Sub