Zellen löschen
29.11.2003 12:44:53
Bernd
habe eine Tabelle erstellt die auch Berechnungen ausführt. Wollte dann die grau unterlegten Felder löschen lassen um ein "frische" Eingabe durchführen zu können:
Sub Graue_Zellen_löschen()
Dim Bereich As Range
Dim iCol As Byte, lngRow As Long
Set Bereich = ActiveSheet.UsedRange
For lngRow = Bereich.Rows.Count To 1 Step -1
For iCol = 1 To Bereich.Columns.Count
If Cells(lngRow, iCol).Interior.ColorIndex = 15 Then
Rows(lngRow).ClearContents
Exit For
End If
Next iCol
Next lngRow
End Sub
Leider funzt das nicht, weil ich auch verbundene Zellen im Dokument habe.
Gibts da Alternativen? Bitte helft mir!!!
Danke