FarbenZurücksetzen in einem Bereich
15.07.2004 11:56:19
Winfried
wer kann mir helfen?
Ich habe den beigefügten Code gefunden, wie bekommmt man den so umgestellt, das er nur in Spalte 7 im Zellbereich "G5:G35" wirksam wird. Funktioniert ansonsten so wie ich es haben will, läuft aber leider über meinen Bereich hinaus.
Sub FarbenZurücksetzen() 'setzt die Farben und Einträge zurück
Dim Spalte As Integer 'Dim Spalte%
Spalte = 7 'Spaltennummer: 1 = Spalte A, 2 = Spalte B ...
Cells(Cells.Rows.Count, Spalte).End(xlUp).Select
Dim z As Range
For Each z In Selection
With z
If .Interior.ColorIndex <> 50 Then .Interior.ColorIndex = xlNone
.Value = ""
End With
Next z
End Sub
Für Eure Hilfe vielen Dank im Voraus