|
VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
Von |
hornst |
E-Mail |
horn.stefanie_95@yahoo.de |
Datum |
15. Juni 2016 um 19:28:24 |
Frage |
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! |
|
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|