Hallo liebe Forenmitglieder,
ich suche für eine Excel-Anwendung einen Code für folgendes Problem
In Spalte B soll der Wert immer auf eine ganze Zahl (z.B. 11) gerundet werden, außer die Zahl ist kleiner als 1, dann soll der Wert der Zelle auf eine Stelle nach den Komma gerundet werden.
Meine Idee war:
Public Sub RoundColumnB()
Range(Range("B1"), Range("B1").End(xlDown)).Select
For Each i In Selection
i.Value = Round(i, 0)
If i.Value < 1 Then i.Value = Round(i,1) End If
Next i
End Sub
Leider funktioniert das natürlich nicht. Hat jemand einen Verbesserungsvorschlag?
Danke schonmal im Voraus!
|