gibt es einen Befehl mit dem ich beim Öffnen einer Arbeitsmappe alle nichtgespeerten Zellen aller Tabellenblätter leeren kann?
LG
Micha
Private Sub Workbook_Open()
Dim rng As Range
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
For Each rng In wks.UsedRange.Cells
If rng.Locked = False Then rng.ClearContents
Next 'rng
Next 'wks
End Sub
Gruß Ingolf