Office: Autoform Recheck in Excel mit bestimmten Farben einfärben

Hallo zusammen,

ich habe ich Excel eine Autoform "Rechteck 1". Dieses möchte ich automatisch einfärben, wenn in der Zelle A5 ein bestimmter Wert steht. In diesem Fall steht da "F7" drin. Das Recheck soll sich mit der Farbe RGB (229, 184, 183) füllen. Wenn in der Zelle ein anderer Wert steht, so soll da Rechteck automatisch eine andere definierte Farbe erhalten.

Leider kenne ich mit VBA Programmierung nicht so gut mit den Formeln aus und weiß auch nicht genau, wie ich mir hierzu die Formel zusammenstelle.

Hat mir hierzu jemand einen Rat?

Danke vorab.

 

Hallo!

Probier's mal hiermit:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A5") = "F7" Then
Shapes("Rechteck 1").Fill.ForeColor.RGB = RGB(229, 184, 183)
Else
Shapes("Rechteck 1").Fill.ForeColor.RGB = RGB(128, 128, 128)
End If
End Sub

 

Hi,

das geht nur per VBA. Ergibt sich der Wert in A5 durch eine Formel oder wird er von Hand eingegeben? Falls Formel: in welche Zellen werden Werte eingegeben, die das Formelergebnis beeinflussen?

Bis später,
Karin

 

Hi,

ich habe unterschiedliche Tabellenblätter. Tabellenblatt "Eingabe", hier gebe ich die Daten mittels drop down oder per Hand ein. Diese Eingabe ergibt in einem anderen Tabellenblatt ein techn. Datenblatt. Hier übernimmt die Zelle A5 den eingegebenen Wert vom Tabellenblatt "Eingabe". Es ist eine einfache wenn dann Funktion =WENN(Eingabe!$D$8="--Bitte wählen--";"";Eingabe!$D$8)

Damit ich weiß welche Farbe das Material hat, soll ein Rechteck jeweils mit unterschiedlichen Farben gefüllt werden. Ich habe 5 Bedingungen. Also wenn (A5 = "F7"; Rechteck 9 einfärben in RGB (229, 184, 183); wenn(A5="F8); einfärben Rechteck in RGB(....).........

Habe die obige Formel von Schatzi probiert, indem ich in VBA ein neues Modul erstellt habe. Jedoch tut sich da nichts bei mir.

 

Hallo Schatzi,

habe in VBA ein neues Modul mit dem Code erstellt, jedoch ändert sich bei mir überhaupt gar nichts. Habe in Zelle A5 auch probiert, den Wert per Hand einzugeben, jedoch ohne Erfolg.

Hättest du vielleicht noch einen anderen Tip oder worauf ich achten sollte?
Danke.

 

Hi,

im Tabellenblatt mit dem DropDown-Listenfeld in A5 diesen Code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$5" Then
      With Worksheets("AndereTabelle").Shapes("Rechteck 1").Fill.ForeColor
         Select Case Target
            Case "F7"
               .RGB = RGB(229, 184, 183)
            Case "F8"
               .RGB = RGB(250, 0, 0)
         End Select
      End With
   End If
End Sub

Die restlichen Case-Anweisungen musst du natürlich ergänzen.

Bis später,
Karin

 

Hi Karin,

ja super das hat funktioniert Juhuuuu. Hab noch die Zelle geändert vom Tabellenblatt.

super vielen Dank nochmal auch an Schatzi.

lg Sunny

 

Hi Sunny,

vielleicht mal noch als Erläuterung, weshalb in meinem Code diese Zeile steht:

Code:

   
If Target.Address = "$A$5" Then

Dadurch wird der Code für die Farbänderung nur ausgeführt, wenn eine Eingabe in A5 gemacht wird, also die Reaktion auf die Eingabe wird auf diese Zelle beschränkt.
Fehlt diese Zeile, wird die Farbänderung bei JEDER Eingabe in eine BELIEBIGE Zelle ausgelöst - das ist 1. nicht erforderlich, da sich die Farbe ja nicht ändern muss und 2. wird die Performance negativ beeinflusst, weil der Code eben bei jeder Eingabe ausgeführt wird.

Bis später,
Karin

 

Hallo Karin,

alles klar vielen Dank. Das merk ich mir für die anderen Programmierungen. Also muss ich die Formeln quasi immer auf die Ursprungsformel/ Auswahl beziehen?

lg Sunny

 

Hi Sunny,

wenn du mit "Formeln" den Code meinst und mit "Ursprungsformel/ Auswahl" die Eingabezelle - dann hast du es richtig erkannt.

Bis später,
Karin