Zitat:
Zitat von keko#
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
|
Glaube ich jetzt nicht.... Butlers djihad ante portas.