[keko#]

Zitat von Jimmi

Glaube ich jetzt nicht.... Butlers djihad ante portas.

Meine wunderschöne, französisch sprechende KI schlug mir noch eine Fehlerbehandlung vor:

Sub ClearAndColorCells()

'Variable zum Speichern des aktiven Arbeitsblatts
Dim ws As Worksheet
On Error GoTo ErrorHandler
Set ws = ActiveSheet

'Schleife durch alle Zellen im aktiven Arbeitsblatt
For Each cell In ws.UsedRange

'Überprüfung, ob die Zelle gesperrt ist
If Not cell.Locked Then

'Löschen des Inhalts und Ändern der Farbe auf blau
cell.ClearContents
cell.Interior.Color = RGB(0, 0, 255)
End If

Next cell
Exit Sub

ErrorHandler:
MsgBox "Es ist ein Fehler aufgetreten: " & Err.Description

End Sub