Arbeiten mit mehreren Variablen
29.01.2004 17:10:41
Joerg
ich habe folgendes Problem,
es soll abgefragt werden, ob in den Zellen D10 bis D20 das Wort "ja" steht,
ist dies der Fall, soll in der gleichen Zeile die Schriftfarbe in den Spalten A bis C
auf weiss gesetzt werden.
z.B. in D12 steht "JA" ,dann soll die Schrift in A12 bis C12 weiss werden, wenn dort
nichts steht eben blau bleiben.
Ich habe es mit einem Ansatz wie unten probiert, bin aber auf Grund mangelnder Kenntnis
gescheitert.
Wer kann helfen, Danke Joerg
Dim Probe As Range
For Each Probe In Range("D10:D20")
If Probe.Value = "JA" Then
Range("A10:C20).Font.ColorIndex = 2
Else: Range("A10:C20).Font.ColorIndex = 11
End If
Next Probe