Wenn in Zelle ein "Zahl" dann zugehöriger Text

[eduard]

Moin Moin,

möchte in eine Zeile z.B. die Zahl "1" eingeben und dann soll ein Text erscheinen - s. beiliegende Tabelle.
Beeinflusst die Schriftform die Formel,  z.B. es soll ein "Haken" mit Wingdings als "OK" bzw. "i.O" erscheinen?

Vielen Dank

[steve1da]

Hola,

Code:

=SVERWEIS(B6;D6:E17;2;0)

Allerdings wird dadurch nicht die Schriftart der Zelle geändert - auch nicht durch eine bedingte Formatierung.
Gruß,
steve1da

[eduard]

Hola Steve1da,

das klappt bei mir nicht - wenn ich die Formel in der Zeile eingebe, erscheint eine "0"

Ziel ist es:
Wenn in Zeile "B6" eine "1" eingegeben wird, soll erscheinen:  -> "ü" bzw. "Haken"

Wenn in Zeile "B6" eine "6" eingegeben wird, soll erscheinen:  -> "Dichtung beschädigt"

Gruß Eduard

[steve1da]

Die Formel ergibt nur 0 wenn du sie in B6 eingibst und den Hinweis auf einen Zirkelbezug ignorierst/wegklickst.

[BoskoBiati]

Hallo,

das wird auch nicht gehen, da entweder eine Formel oder ein Wert in der Zelle stehen kann. Wenn Du 1 in B6 eingibst, dann ist die Formel weg. Das, was Du willst, geht nur mit VBA.

Deine SVERWEIS-Formel, die Du da vorstellst ist für die Tonne, da syntaktisch völlig falsch.

[Egon12]

Hallo Eduard,
 
die Formel macht in deiner Beispieldatei das was sie soll. Nur du musst das Eingabeereignis der Zelle B6 auswerten, damit der passende Text Font eingestellt wird.
Das ist dann nur mit VBA machbar.
ins Modul des Tabellenblattes:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Cells(6, 2)) Is Nothing Then
        If Cells(4, 2) = "ü" Then
            Cells(4, 2).Font.Name = "Wingdings"
        Else
            Cells(4, 2).Font.Name = "Calibri"
        End If
    End If
End Sub

Gruß Uwe

---

@ Edgar,
 
die Formel soll ja in B4 stehen und die Eingabe in B6. So ist es zumindest in der Beispieldatei vom TO vorgegeben.
Aber um das bisschen VBA kommt er trotzdem nicht drum rum.
 
Gruß Uwe

[BoskoBiati]

Hallo Uwe,
muß ich widersprechen:

Wenn in Zeile "B6" eine "1" eingegeben wird, soll erscheinen:

Offensichtlich soll das im ganzen Bereich wirken, deshalb eher so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B6:B15")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = Application.VLookup(Target, Range("D6:E17"), 2, 0)
If Target = "ü" Then
    Target.Font.Name = "Wingdings"
Else
    Target.Font.Name = "Arial"
End If
Application.EnableEvents = True

End Sub

[Egon12]

Ah Danke, dann hab ich es wohl falsch verstanden.

Gruß Uwe