Jetzt bricht er mit Debug ab, wenn die Quelledatei nicht zu finden ist und ich kann mit der Liste nicht arbeiten.
Er sollte aber wenn die Liste nicht vorhanden ist die alten Stammdaten nutzen
Private Sub workbook_open()
Call showall
Tabelle1.Activate
Application.OnTime Now(), "Start"
If ISOWeek(Date)