Ich muss einen IF mit mehreren Bedingungen bilden, es handelt sich um eine Kombination aus "=", ">", " Vielen Dank für Eure Hilfe
susanne
If (Sheets(strSheetName).Cells(lRowSec, 17).Value > dblDurationFrom) And _
(Sheets(strSheetName).Cells(lRowSec, 17).Value < dblDurationTo) And _
(Sheets(strSheetName).Cells(lRowSec, 9).Value = strRiskStyle) And _
(Sheets(strSheetName).Cells(lRowSec, 18).Value <= dblPrice) And _
(Sheets(strSheetName).Cells(lRowSec, 1).Value = "") Then jepp = True
Select Case intPriceOP
Case Is = 1, 2 ' price <=
Select Case intMinDenomOP
Case Is = 1 ' MinDenom <=
If jepp = True And (Sheets(strSheetName).Cells(lRowSec, 25).Value <= dblMinDenom) Then Call RegelTrifftZu
Case Is = 2 ' MinDenom >
If jepp = True And (Sheets(strSheetName).Cells(lRowSec, 25).Value > dblMinDenom) Then Call RegelTrifftZu
End Select
End Select
Select Case intPriceOP
Case Is = 1 ' price <=
Select Case intMinDenomOP
Case Is = 1 ' MinDenom <=
If (Sheets(strSheetName).Cells(lRowSec, 17).Value > dblDurationFrom) And _
(Sheets(strSheetName).Cells(lRowSec, 17).Value < dblDurationTo) And _
(Sheets(strSheetName).Cells(lRowSec, 9).Value = strRiskStyle) And _
(Sheets(strSheetName).Cells(lRowSec, 18).Value <= dblPrice) And _
(Sheets(strSheetName).Cells(lRowSec, 25).Value <= dblMinDenom) And _
(Sheets(strSheetName).Cells(lRowSec, 1).Value = "") Then
Call RegelTrifftZu
End If
Case Is = 2 ' MinDenom >
If (Sheets(strSheetName).Cells(lRowSec, 17).Value > dblDurationFrom) And _
(Sheets(strSheetName).Cells(lRowSec, 17).Value < dblDurationTo) And _
(Sheets(strSheetName).Cells(lRowSec, 9).Value = strRiskStyle) And _
(Sheets(strSheetName).Cells(lRowSec, 18).Value <= dblPrice) And _
(Sheets(strSheetName).Cells(lRowSec, 25).Value > dblMinDenom) And _
(Sheets(strSheetName).Cells(lRowSec, 1).Value = "") Then
Call RegelTrifftZu
End If
Case Else
End Select
Case Is = 2 ' price >=
Select Case intMinDenomOP
Case Is = 1 ' MinDenom <=
If (Sheets(strSheetName).Cells(lRowSec, 17).Value > dblDurationFrom) And _
(Sheets(strSheetName).Cells(lRowSec, 17).Value < dblDurationTo) And _
(Sheets(strSheetName).Cells(lRowSec, 9).Value = strRiskStyle) And _
(Sheets(strSheetName).Cells(lRowSec, 18).Value <= dblPrice) And _
(Sheets(strSheetName).Cells(lRowSec, 25).Value <= dblMinDenom) And _
(Sheets(strSheetName).Cells(lRowSec, 1).Value = "") Then
Call RegelTrifftZu
End If
Case Is = 2 ' MinDenom >
If (Sheets(strSheetName).Cells(lRowSec, 17).Value > dblDurationFrom) And _
(Sheets(strSheetName).Cells(lRowSec, 17).Value < dblDurationTo) And _
(Sheets(strSheetName).Cells(lRowSec, 9).Value = strRiskStyle) And _
(Sheets(strSheetName).Cells(lRowSec, 18).Value <= dblPrice) And _
(Sheets(strSheetName).Cells(lRowSec, 25).Value > dblMinDenom) And _
(Sheets(strSheetName).Cells(lRowSec, 1).Value = "") Then
Call RegelTrifftZu
End If
Case Else
End Select
Case Else
End Select
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen