OExl.Workbooks.Open pfad
 
If Err > 0 Then
MsgBox "Fehler"
Unload Me
Exit Sub
End If
ActiveWorkbook.Sheets(Day(Date) & "_" & Month(Date) & "_" & Year(Date)).Select
ActiveSheet.Cells(2, "A").Value = 23
 
'Die Maske(Tabelle) speichern
OExl.Application.Save (True)
 
'Die Maske(Tabelle) schliessen
OExl.ActiveWorkbook.Close True, pfad
'Die gesammte Excel-Anwendung beenden
OExl.Application.Quit
OExl.Quit
Set OExl = Nothing

'Arroganz ist die Kunst, auf seine eigene Dummheit stolz zu sein.'