Suche in Tabelle Zahl und übertrage deren Farbe
10.06.2008 11:19:00
Falk
ich habe eine kleine Tabelle in einem Arbeitsblatt (Bereich C4:AC20), welche aus verschiedenen Zahlen (gleiche Zahlen kommen nicht vor) mit 2 verschiedenen Farben besteht.
Ich möchte in verschiedenen Zellen unterhalb der Tabelle (z.B. C24) eine Zahl eingeben, die in der o.g. Tabelle vorkommt und mir in dieser die Farbe einfügen lassen.
Mit diesem Code klappt es prima für eine Zelle:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, rngData As Range
If Target.Address "$C$24" Then Exit Sub
Set rngData = Range("C4:AC20")
Set rng = rngData.Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rng Is Nothing Then
Target.Font.ColorIndex = rng.Font.ColorIndex
Else
Target.Font.ColorIndex = xlColorIndexNone
End If
End Sub
Ich möchte aber auch gleichzeitig in andere Zellen diese Möglichkeit haben: in D24, E24, F24 usw. und auch in D24, E25, F25 usw.
Ist das möglich?
Gruß Falk