2 worksheet_changes in einem Macro
09.03.2021 17:35:42
th18po
ich möchte in einem Exceltabellenblatt mehrere Ampeln über einen Wert aus einer Tabelle (gleiches Blatt) schalten. Die Ampel besteht aus Formen (nicht Zellenbasierend). VBA ist nicht
meine Stärke ;-) Habe nun für jede Ampel ein Macro. Einzeln funktionieren sie nur zusammen _ bekomme ich es nicht hin. Kann vielleicht jemand unterstützen? Wäre klasse
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("AE4")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value = 6 Then
ActiveSheet.Shapes("Ellipse 2").Fill.ForeColor.RGB = vbRed
Else
ActiveSheet.Shapes("Ellipse 2").Fill.ForeColor.RGB = vbBlack
End If
If Target.Value = 3 Then
ActiveSheet.Shapes("Ellipse 183").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Ellipse 183").Fill.ForeColor.RGB = vbBlack
End If
If Target.Value = 1 Then
ActiveSheet.Shapes("Ellipse 184").Fill.ForeColor.RGB = vbGreen
Else
ActiveSheet.Shapes("Ellipse 184").Fill.ForeColor.RGB = vbBlack
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("AE5")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value = 6 Then
ActiveSheet.Shapes("Ellipse 187").Fill.ForeColor.RGB = vbRed
Else
ActiveSheet.Shapes("Ellipse 187").Fill.ForeColor.RGB = vbBlack
End If
If Target.Value = 3 Then
ActiveSheet.Shapes("Ellipse 188").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Ellipse 188").Fill.ForeColor.RGB = vbBlack
End If
If Target.Value = 1 Then
ActiveSheet.Shapes("Ellipse 189").Fill.ForeColor.RGB = vbGreen
Else
ActiveSheet.Shapes("Ellipse 189").Fill.ForeColor.RGB = vbBlack
End If
End If
End Sub