Optionen:
 
Private Sub Umsatzmeldung_Click() 
On Error GoTo Err_Umsatzmeldung_Click 
 
    Dim stDocName As String 
 
    stDocName = "Umsatzmeldung" 
    DoCmd.RunMacro stDocName 
    DoCmd.OutputTo ???????????, "Umsatzmeldung", acFormatXLS, _
      "Umsatzmeldung.xls", True 
 
Exit_Saint_Gobain_Umsatzmeldung_Click: 
    Exit Sub 
 
Err_Umsatzmeldung_Click: 
    MsgBox Err.Description 
    Resume Exit_Umsatzmeldung_Click 
 
End Sub