Nächstgrößeren Wert
09.11.2002 22:00:03
Karsten
ich versuche in einer Spalter den nächstgrößeren Werte zufinden, der durch eine Textbox vorgegeben wurde. Habs mal wie folgt probiert funzt aber irgendwie nicht:
Private Sub CommandButton1_Click()
z = TextBox1.Value
x = 2
Tabelle1.Activate
Do Until IsEmpty(Cells(x, 2))
If Cells(x, 2).Value >= z Then
TextBox2.Value = Cells(x, 2).Value
Exit Do
End If
x = x + 1
Loop
End Sub
Kann mir da jemand weiter helfen?
Danke
Karsten
Anzeige