Entfärben-Makro mit Einschränkung
17.03.2004 18:10:19
Martin
Ich hab ein Makro in meiner Tabelle das mit Hilfe eines Button "entfärben" funktioniert. Ich färbe eine Spalte mit hilfe eines anderen Buttons jeden Monat ungefähr in einer anderen Farbe. Ich klicke auf "einfärben", dann geb ich die nummer ein und schon hab ich es z.B. in grün, dann eine andere Farbe und alle neu eingegebenen Daten nach der Einfärbung werden in einer anderen Farbe angezeigt. Mein Problem: Mein Entfärben-Makro entfärbt die ganze Spalte. Ich möchte nur das entfärbt haben, was ich als letztes Eingefärbt habe und die anderen Farben sollen stehen bleiben. Mein bisheriges makro bei Einfärben ist dieses hier:
Sub Entfärben()
Dim I As Integer
I = Cells(Rows.Count, 17).End(xlUp).Row
Do While I > 2
'Zelle entfärben
Cells(I, 17).Interior.ColorIndex = xlNone
I = I - 1
Loop
End Sub
Ich hoffe ihr könnt mir helfen. Danke schonmal!
Mfg Martin