Schriftformatierung mit VBA
26.01.2004 09:54:05
Harald
ich habe mal wieder ein Problem mit VBA. Ich dachte mir, dass ich die Farbe der Schrift durch Range(zelle, zelle.Offset(0, 1)).Font.ColorIndex = 3 nur in dieser einen Zelle ändern kann. Doch der ändert mir die Schrift irgendwie in dem ganzen Bereich. Warum? Was hab ich falsch gemacht?
Zum Verständnis habe ich den CODE mal mit aufgeführt.
Gruß
Harald
Private Sub Worksheet_calculate()
Dim bereich As Range, zelle, zellfärben As Range
Set bereich = Range("AC26:AC35, AI5:AI27")
For Each zelle In bereich
If zelle = "Test" Then
Range(zelle, zelle.Offset(0, 1)).Interior.ColorIndex = 6
Range(zelle, zelle.Offset(0, -4)).Interior.ColorIndex = 6
Range(zelle, zelle.Offset(0, 1)).Font.ColorIndex = 3
Else
Range(zelle, zelle.Offset(0, 1)).Interior.ColorIndex = x1none
Range(zelle, zelle.Offset(0, -4)).Interior.ColorIndex = x1none
Range(zelle, zelle.Offset(0, 1)).Font.ColorIndex = x1none
End If
Next
Set bereich = Nothing
End Sub
Anzeige