Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Pfeilfarbe- und Bewegung abhängig von Zellwerten

Gruppe

Change

Problem

Wie kann ich einen Pfeil mit folgenden Bedingungen manipulieren: - Wenn A1<B1 dann Pfeil rot nach unten - Wenn A1=B1 dann Pfeil gelb nach links - Wenn A1>B1 dann Pfeil grün nach oben

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub
   With Shapes("Autoform 1")
      If Range("A1").Value > Range("B1") Then
         .Rotation = 90#
         .Fill.ForeColor.SchemeColor = 50
      ElseIf Range("A1").Value < Range("B1") Then
         .Rotation = 270#
         .Fill.ForeColor.SchemeColor = 53
      Else
         .Rotation = 0#
         .Fill.ForeColor.SchemeColor = 13
      End If
   End With
End Sub