Clever-Excel-Forum

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

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))

Hallo Klaus-Dieter

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

Vielen herzlichen Dank

VG Primo

CLng produziert Ganzzahlen.

Primo Centurio

Klaus-Dieter

Primo Centurio

EarlFred