Sub DialogDateiOeffnenEineDatei()
  Dim xlDateiName As Variant
 
  xlDateiName = Application.GetOpenFilename( _
      FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", _
      Title:="EINE Datei zum Öffnen auswählen")
 
  If TypeName(xlDateiName) = "Boolean" Then Exit Sub
 
  MsgBox xlDateiName, Title:="Ausgewählte Datei..."
  Workbooks.Open FileName:=xlDateiName
End Sub
 
Sub DialogDateiSpeichernUnter()
  Dim xlDateiName As Variant
 
  xlDateiName = Application.GetSaveAsFilename( _
      InitialFilename:="EineBeispielDatei.xls", _
      FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", _
      Title:="Datei speichern unter...")
 
  If TypeName(xlDateiName) = "Boolean" Then Exit Sub
 
  ActiveWorkbook.SaveAs xlDateiName
End Sub