Eine Form mit Farbe ausfüllen wenn Eintrag in Zelle erfolgt

[Enrico]

Hallo,

ich habe eine Frage und vielleicht gibt es jemanden der mit Helfen kann.
Wir pflegen täglich eine Excel-Datei mit verschiedenen Werten.

In dieser Excel-Datei soll es eine verbundene Zelle pro Woche geben:
  1. Wenn man nun in dieser Liste ein "Nein" einträgt soll in einer anderen Excel-Datei eine definierte Form grün werden.
  2. Wenn man nun in dieser Liste ein "Ja" einträgt soll in der selben Excel-Datei dieselbe definierte Form rot werden.

Ist überhaupt möglich? Wenn 2 Listen zu schwierig sind könnte man beides auch in einer Datei zusammenfassen auf 2 verschiedene Reiter.


Ich bin gespannt ob jemand eine Lösung dafür hat. Ich weiß nämlich nicht weiter und Google hilft auch nicht. 

Danke und Gruß, Enrico

[UweD]

Hallo

hab es mal mit 2 Tabellenblättern realisiert

- Rechtsklick auf den Tabellenblattreiter mit den Eingabefeldern
- Code anzeigen
- diesen Code dort eintragen

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Inhalt As String, TB2 As Worksheet
    Set TB2 = Sheets("Tabelle2")
   
    If Not Intersect(Range("A:A"), Target) Is Nothing Then
        Inhalt = Target
       
        Select Case Target.Address
       
            Case "$A$10"
                With TB2.Shapes("Gleichschenkliges Dreieck 1").Fill
                    If Inhalt = "Nein" Then
                        .ForeColor.RGB = RGB(0, 176, 80) 'grün
                       
                    ElseIf Inhalt = "Ja" Then
                        .ForeColor.RGB = RGB(255, 0, 0) 'rot
                       
                    Else 'unbestimmt
                        .ForeColor.RGB = RGB(255, 255, 0) 'gelb

                    End If
                   
                 End With

            Case "$A$20"
                With TB2.Shapes("Gleichschenkliges Dreieck 2").Fill
                    If Inhalt = "Nein" Then
                        .ForeColor.RGB = RGB(0, 176, 80) 'grün
                       
                    ElseIf Inhalt = "Ja" Then
                        .ForeColor.RGB = RGB(255, 0, 0) 'rot
                       
                    Else 'unbestimmt
                        .ForeColor.RGB = RGB(255, 255, 0) 'gelb

                    End If
                   
                 End With
                 
            'Case usw...
           
            Case Else
                'nix
        End Select
       
    End If

End Sub

- auf Eingabeblatt habe ich mal A10 und A20 als EIngabezellen genommen
- auf Tabelle2 befinden sich die Dreiecke mit den entsprechenden Namen


LG UweD

[Enrico]

Vielen Dank für die Hilfe.

Das hat super geklappt und jetzt funktioniert es wie es soll.

[Enrico]

Hallo Uwe,

das funktioniert alles so wie es soll. Wenn nun aber einmal "Ja" oder "Nein" drin stand wie bekomme ich das Feld wieder farblos?
Jetzt aktuell bleibt die Farbe drin ... gibt es dafür auch einen Farbcode?

[derHoepp]

Moin,

Kurz gesagt: RTFM, Lang gesagt: ein Blick in die die Dokumentation hilft bei der Lösungsfindung: https://learn.microsoft.com/en-us/office...at.visible

Oder ist deine F1- Taste kaputt.

Viele Grüße
derHöpp