Ich benutzte dieses
Private Sub Workbook_Open()
For Each cl In Sheets("Tabelle1").Range("Ax5:AX29")
If cl
hätte aber gerne die Formatierungen der Zellen behalten (also nur Inhalte löschen)
LG
Private Sub Workbook_Open()
For Each cl In Sheets("Tabelle1").Range("Ax5:AX29")
If cl