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
ActiveWorkbook.Close savechanges:=True
 
'Die gesammte Excel-Anwendung beenden
OExl.Application.Quit
OExl.Quit
Set OExl = Nothing

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