AW: dynamischer IF
Reinhard
Hi Susanne,
das schweizerische Bankensystem kapier ich nun grad nicht so ganz :-)
M.E. erfüllt:
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
das Gleiche wie dein nachfolgender Code. Da ungetestet, Frage wieder auf noch offen gestellt.
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
Gruß
Reinhard