Excel: WENN Wert kleiner/grösser als...

[wbendl]

Hi!

Eine kleine selbstgeschrieben Funktion:

Function Texte(MyRange As Range) As String

Select Case MyRange.Value
Case 1
Texte = "Text 1"
Case 2
Texte = "Text 2"
Case 3
Texte = "Text 3"
Case 4
Texte = "Text 4"
Case 5
Texte = "Text 5"
Case 6
Texte = "Text 6"
'Bei Bedarf die beiden Zeilen durch entfernen des Hockommas aktivieren
' Case Else
' Texte = "kein gültige Wert"
End Select

End Function


Die Formel in der Zelle:
=Texte(A1)
wertet den Inhalt von A1 aus


mfg

WB