'Wenn dann per VBA (VBA)

Martin Asal @, Donnerstag, 08.11.2018, 13:50 (vor 6 Tagen) @ Ben

Theoretisch geht das auch ohne VBA, aber die Formel wäre ganz schon kompliziert verschachtelt ;-)

Ob deine Bedingungen wirklich alle Fälle abdecken, bezweifle ich. Was ist z.B., wenn R3<L3, und R3 zwischen 0 und 1 liegt? hier jedenfalls ein Lösungsvorschlag:

Public Function myText()
Dim Zeile As Long
Dim R, L
 
Zeile = ActiveCell.Row
 
R = ActiveSheet.Range("R" & Zeile)
L = ActiveSheet.Range("L" & Zeile)
 
Select Case R
    Case Is > L
        myText = "Text1"
    Case Is = L
        myText = "Text2"
    Case Is < L And R > 1
        myText = "Text4"
    Case 0
        If ActiveSheet.Range("$B$2") - ActiveSheet.Range("O" & Zeile) < ActiveSheet.Range("R" & Zeile) Then
            myText = "Text3"
        Else
            myText = "Text5"
        End If
End Select
 
End Function
 

Martin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum