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
|