Was ich allerdings zuerst nicht mit berücksichtigt habe, ist, dass der Bereich rngSchicht variabel ist, und zwar ist jedes Blatt ein Monat, also unterschiedlich viele Spalten.
Die Datumswerte stehen von C3 : AD3,AE3 usw je nach Monat. DANACH kommen allerdings noch weitere Spalten, die noch andere Informationen enthalten, also über letzte Spalte funktioniert es nicht.
Wie kann ich die Zeile 3 nach dem letzten Datumswert abfragen (über IsDate)? Um dann im Code den Bereich rngSchicht variabel zu verwenden! Mir fehlt eine zündende Idee.
Danke für eure Tipps.
Sub WerteLöschen()
Dim rngSchicht As Range
Dim i As Long
Application.DisplayAlerts = False
For i = 4 To 15
With ThisWorkbook.Worksheets(i)
Set rngSchicht = .Range(.Cells(7, 3), .Cells(131, 33))
rngSchicht.ClearContents
End With
Next i
Application.DisplayAlerts = True
End Sub