Probleme If-Abfrage

[Primo Centurio]

Hallo zusammen,

ich sehe höchstwahrscheinlich vor lauter Bäume den Wald nicht.
Ich habe diesen Code 

Code:

Dim rngQuali As Range

Set rngQuali = Worksheets("Daten_402").Range("A:A").Find(What:=ComboBox3)

If ComboBox4.Value < rngQuali.Offset(0, 1).Value Then
MsgBox "Hallo1"
End If

If ComboBox4.Value > rngQuali.Offset(0, 2).Value Then
MsgBox "Hallo2
End If

In ComboBox4 steht der Wert 97,0, in der Zelle rngQuali.Offset(0, 1) der Wert 98,0 und in rngQuali.Offset(0,2) der Wert 100,5
Somit müsste hier die MsgBox "Hallo1" ausgegeben werden.
Egal welchen Wert ich in der ComboBox4 eingebe, wird mir die MsgBox "Hallo2" ausgegeben.

Kann mir jemand die Klappen von den Augen nehmen ^^

VG Primo

[Klaus-Dieter]

Hallo,

da die Inhalte der ComboBox Texte sind, wird das wohl die Ursache sein. Am einfachsten wäre es, du lädst deine Datei mal hoch.

versuche es mal so:  Set rngQuali = Worksheets("Daten_402").Range("A:A").Find(What:=CLng(ComboBox3.Value))

[Primo Centurio]

Hallo Klaus-Dieter

Kannte die Typkonvertierungsfunktion CLng nicht und die hat das Problem gelöst :)

Vielen herzlichen Dank

VG Primo

[26865]

CLng produziert Ganzzahlen.