Formatierungsproblem
04.02.2004 15:04:36
Horst
ich habe eine Datei wo ich in Spalte A eine Artikelnummer eingebe, und in Spalte B erscheint die Bezeichnung sowie in Spalte C eine Nummer zwischen 0 und 8. Dieses geschieht duch Sverweis. Jetzt soll wenn (in Spalte C) die Ziffern 1 - 8 erscheinen der Text (in SpalteB) rot (oder ne andere Farbe) werden. Dafür hat Roland Hochhäuser mir diesen Code geschrieben:
Sub Textfarbe()
Dim i As Integer
For i = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("C" & i).Value = 0 Then
Range("B" & i).Font.ColorIndex = 1
Else
Range("B" & i).Font.ColorIndex = 3
End If
Next
End Sub
Jetzt läuft der aber bei mir nur wenn ich jedesmal dieses Makro starte. Es soll aber so sein, das jedesmal wenn ich diese Datei öffne und die Artikelnummern eingebe, dieses Automatisch läuft.
Kann ich das auch irgendwie einstellen das ich für jede Nummer eine Seperate Farbe zuweisen kann?
Die Basisdatei wo die Daten per Sverweis herkommen wird laufen durch eine neue Ersetzt.
Gruß
Horst