VBA-Prob. mit Schleife
10.02.2003 17:29:19
thorsten
habe den code hier im Forum genannten (kann aber den alten Thread nicht mehr finden)
Der code:
Dim cell As Range
For Each cell In Range("I24:I95")
If WorksheetFunction.RoundUp(cell.Value, 2) > 0.01 Then
TextBox30.Value = cell.Value
TextBox30.Text = Format(TextBox30.Text, "Currency")
Exit For
End If
Der Code soll folgendes machen: Er soll ab der Zelle i24 überprüfen, ob der Wert > 0,01 ist und diesen Wert in die Textbox30 schreiben. Wenn die Zelle < 0,01 ist, soll er Zelle i25 das gleiche prüfen und immer weuter bis zur Zelle I95. Vielen Dank bereits im Voraus. Gruss Thorsten Gerber