Clever-Excel-Forum

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

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

Vielen Dank für die Hilfe.

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

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?

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

Enrico

UweD

Enrico

Enrico

derHoepp