AW: Macro ausführen komplexer Berechnung
27.05.2021 15:55:01
Horst
An welcher Stelle muss ich die Zeile einfügen?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("C5,C14,C15") Then 'Wert steht in A1
ActiveSheet.Shapes("Pfeil nach oben und unten 3").Select 'Freeform 1 ist der Name der Freihandform
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = fctFarbe(Target.Value)
End With
Target.Select
End If
' Hier für eine weitere Form
If Target = Range("C6,C14,C15") Then 'Wert steht in A2
ActiveSheet.Shapes("Pfeil nach oben und unten 4").Select 'Freeform 2 ist der Name der Freihandform
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 'Werte und Relationen anpassen
fctFarbe = 10 'Farbwerte entsprechend ändern
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