FarbenZurücksetzen in einem Bereich die 2.
16.07.2004 12:38:41
Winfried
wer kann mir helfen?
Ich habe den Code beigefügt, 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, es soll immer nur die selectierte Zelle zurückgesetzt werden und nicht alle Zellen im Bereich. 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
Winfried
Anzeige