Freihandform - bedingte Formatierung
22.08.2007 09:54:37
Roger
über ein Makro kann ich Freihandformen bedingt formatieren. Dies funktioniert auch bestens, wenn ich die entsprechende Zelle manuell ansteuere, d.h., den Wert manuell eintrage. Sobald der Zellwert aber von einer anderen Zelle übernommen werden soll, welche ihrerseits mit WENN-Funktionen errechnet wird, funktioniert's nicht mehr.
Hier zur Verdeutlichung das Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Then
ActiveSheet.Shapes("Freeform 1").Select
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = fctFarbe(Target.Value)
End With
Target.Select
End If
If Target = Range("A2") Then
ActiveSheet.Shapes("Freeform 2").Select
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = fctFarbe(Target.Value)
End With
Target.Select
End If
If Target = Range("A3") Then
ActiveSheet.Shapes("Freeform 9").Select
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = fctFarbe(Target.Value)
End With
Target.Select
End If
End Sub
Private Function fctFarbe(dblWert As Double) As Byte
Select Case dblWert
Case Is = 5
fctFarbe = 10
Case Is = 4
fctFarbe = 11
Case Is = 3
fctFarbe = 4
Case Is = 2
fctFarbe = 5
Case Is = 1
fctFarbe = 6
Case Else
fctFarbe = 9
End Select
End Function
Wäre toll, wenn jemand eine Idee hätte. Vielen Dank im voraus.
Roger