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 ]
Antworten
VB6: If Bedingung für Runden von Nachkommastellen gesucht - hornst 15. Juni 2016 um 19:28:24
Re: If Bedingung für Runden von Nachkommastellen gesucht - Dr3ViL 17. Juni 2016 um 12:21:43

Ihre Antwort
(Nick-)Name   Wichtige Informationen zur Namensangabe
E-Mail (opt.)  Wichtige Informationen zur Angabe einer eMail-Adresse
Thema   Wichtige Informationen zur Angabe eines Themas
Betrifft (IDE)  Visual Basic 6 (*.exe)
Ihre Antwort
Smilies
Mehr...
FettKursivUnterstrichen   Übersicht der Tipp-KürzelÜbersicht der Projekt-KürzelÜbersicht der Bücher-Kürzel 
Homepage
Titel
Root-Smilies              
             
             
[ Zurück zum VB 4/6- und VBA-Forum | Forum-Archiv | Forum-Hilfe | Chat ]

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB.Net | .Net-Forum | DirectX | DirectX-Forum | Chat | Ausschreibungen | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 13. Dezember 2015