[keko#]

Zitat von Jimmi

Ich bin ja hinter dem Mond...

Kann ich ChatGPT sagen, dass ich gerne eine VBA Prozedur hätte, die beispielsweise alle nicht gesperrten Felder löscht und diese auf blaue Farbe setzt?

Ja, Excel-Macros kann sie ganz gut.

Sub ClearAndColorCells()

'Variable zum Speichern des aktiven Arbeitsblatts
Dim ws As Worksheet
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

End Sub