Hallo!
Ich möchte gerne eine If-Schleife mit einer Bedingung aus drei Elementen schreiben. Das letzte Element soll dafür sorgen dass die Schleife beginnt wenn die Multiplikation zweier Felder einer Tabelle kleiner als ein Schwellenwert (TP3) ist. Dieser Teil der Bedingung führt zum Fehler:
<b>Typen unverträglich</b>
Was kann ich tun? Die Bedingung und die dazugehörigen Variablen sind angehängt
Dim iChek1 As Integer
Dim ColP As Integer
Dim ColN As Integer
Dim TP1 As Single
Dim TP2 As Single
Dim TP3 As Single
If wksData1.Cells(iChek1, ColP).Value < TP1
Or wksData1.Cells(iChek1, ColP).Value < TP2
And wksData1.Cells(iChek1, ColP) * wksData1.Cells(iChek1, ColN).Value < TP3
Then
In der Hoffnung auf Erlösung!
Stefan