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

[wbendl]

Hi!

Die lange Möglichkeit, alle Bedingungen entsprechend definieren:

Case 5 to 14
Texte = "Text 1"

Ist viel Schreibarbeit.

Oder eine speziell für deine Angaben gemachte Berechnung. Die Texte stehen in einer Hilfstabelle und die Zeilennummer wird aus deinem Wert berechnet.

Function Texte(MyRange As Range) As String
Dim lngRow As Long

If IsNumeric(MyRange.Value) Then
lngRow = TextIndex(MyRange.Value)
If lngRow > 0 Then
'Hier Tabelle und Spalte mit den Texten definieren
Texte = Sheets(1).Range("G" & lngRow)
End If
End If
End Function

Function TextIndex(intVal As Integer) As Long
Dim lngRetVal As Long

lngRetVal = Fix(((intVal - 5) / 10) + 1)

TextIndex = lngRetVal
End Function

Ist nicht perfekt ausprogrammiert, aber ein Denkansatz.


mfg

WB