Formatierung mit Bedingung in separatem Blatt
12.02.2007 14:00:00
Mathias
folgenden Code würde ich gern so verändern, dass ich die Bedingung "XYZ" in einem separatem Tabellenblatt in einer Zelle (z.B. in Tabellenblatt "Bedingung" in Zelle A1) eintragen kann. Außerdem sollen die Formatierungen dieser Zelle auf die gerade bearbeitete Zelle übertragen werden. Wie könnte ich das bewerkstelligen? Vielen Dank für eure Tipps.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:F100]) Is Nothing Then Exit Sub
With Target
Select Case .Value
Case "XYZ"
.Interior.ColorIndex = 34
.Font.ColorIndex = 3
Case Else
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 1
End Select
End With
End Sub
Viele Grüße
Mathias