Hallo Michael,
da der Farbcode in irgendeiner Spalte stehen kann, müssen alle Zellen einer Reihe ab Spalte B durchsucht werden, ob eine Farbe oder eine für einen ColorIndex passende Zahl darin steht. In meinem Vorschlag wird die erste Zelle, die eines der Kriterien erfüllt, ausgewertet und verarbeitet. Einfacher wäre es, wenn dieser Index in einer festen Spalte stünde.
For i = 1 To Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row
For j = 2 To Range(Cells(i, Columns.Count), Cells(i, Columns.Count)).End(xlToLeft).Column
If Cells(i, j) <> "" Then
If InStr("schwarzweißhellrothellgrünblaugelbmagenta...", Cells(i, j)) <> 0 Then
Select Case LCase(Cells(i, j))
Case "schwarz"
Cells(i, 1).Font.ColorIndex = 1: Exit For
Case "weiß"
Cells(i, 1).Font.ColorIndex = 2: Exit For
Case "hellrot", "rot"
Cells(i, 1).Font.ColorIndex = 3: Exit For
Case "hellgrün", "grün"
Cells(i, 1).Font.ColorIndex = 4: Exit For
Case "blau"
Cells(i, 1).Font.ColorIndex = 5: Exit For
'...
Case Else
End Select
Else
If IsNumeric(Cells(i, j)) = True Then
If Cells(i, j) = Int(Cells(i, j)) Then
If Cells(i, j) > 0 And Cells(i, j) < 57 Then
Cells(i, 1).Font.ColorIndex = Cells(i, j)
Exit For
End If
End If
End If
End If
End If
Next j
Next i
Viel Erfolg
Holger
Michael H. schrieb am 16.07.2008 11:42:00:
Hi zusammen,
meine Frage :
Wie kann man eine einzelne Spalte abfragen und den inhalt der gerade aktuellen zeile dann anwenden (in project) ?
Ein Beispiel :
Es soll allen Anfangszellen der ersten Spalte die Farbe die in einer anderen Spalte steht zugeordnet und angewanet werden d.h.
Name | ..... | ....| ... | Farbe |
--------------------------------------------------------------------
Peter | .......................... |blau |
Willi |............................|Rot |
Fred |............................|grün |
Bei dieser Tabelle sollte also nachher
Peter in blau geschrieben sein,
Willi in Rot geschrieben sein,
und Fred in Rot geschrieben sein,
(Es muss nicht unbedingt Rot oder Blau darin stehen von mir aus auch 2 oder 6 , was immer der Farbcode halt ist)
Hoffe das geht irgendwie
Mfg Michael |