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
|