größer als - Vergleich wird nicht angenommen
16.08.2007 12:58:00
Caro
ich würde gerne einen Wert aus einem Textfeld mit den Werten in Spalte A vergleich, wenn der Wert in Spalte A bei der Variablen i kleiner als der Wert aus der Textbox ist und der Wert in der Textbos größer als der Wert in Spalte A aus i+1, dann soll dazwischen eine Zeile eingefügt werden.
ich habe aber nun folgendes Problem, die Prüfung ob der Wert in der Spalte kleiner ist, wird ohne Probleme durchgeführt, die andere If-Prüfung allerdings nicht.
Ich habe schon unterscheidliche Variablen verwendet und die If-Bedingung in zwei IF-Bedingungen gezogen. Ohne Erfolg.
Anbei mein Code:
Private Sub cmdOK_Click()
Dim i, n As Integer
i = 210
n = 211
Do Until Tabelle1.Cells(i, 1).Value = ""
If txtArtnr > Tabelle1.Cells(i, 1).Value Then
If txtArtnr
Danke, Gruss
Caro