Rundungsformel mit Variablen auf 5 runden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
wie sieht denn deine FormulaLocal-Formel aus?
welche der beiden Varianten hast du getestest und in welcher Excelversion?
bitte zeige deine Formeln, die den Fehler verursachen (per Copy-Paste aus deinem Code hier einfügen oder die Datei hochladen).
bei mir funktionieren beide Formeln (Excel 2010, deutsch) so wie ich sie hier gezeigt habe.
Das Problem ist das Zusammenspiel von Automatische Umwandlung der Zahl in einen Text, welche notwendig ist, wenn du die Zahl nicht zum Rechnen verwendest sondern in einen Text einbettest, und der automatischen Rückumwandlung des Textes in eine Zahl, wenn Excel die Formel analysiert.
Dabei hängt es davon ab, welches Dezimaltrennzeichen (Punkt oder Komma) verwendet wird.
und da scheint die erstumwandlung im Code ein anderes Trennzeichen zu verwenden als nacher dasjenige, welches die Formel verwendet.
Es funktioniert mit Ganzzahlen, weil Ganzzahlen kein Dezimaltrennzeichen haben sondern als Text nur aus Ziffern bestehen, in allen Ländern gleich sind.
Es funktioniert mit Zellbezügen, weil hier keine Zahlen in Text und Texte in Zahl gewandelt werden.
und jetzt erkläre mir du bitte folgedes
1. welche Frage hast du überhaupt gestellt? weder in deinem Eingangspost noch in deinem Makro steht eine konkrete Frage, also formuliere diese bitte.
2. warum ist meine Lösung für dich nicht brauchbar?
Gruss Daniel

Ich habe auch noch rausgefunden, dass round() eine Sch...funktion ist. Lass folgenden Code laufen

Sub VerruecktesRunden() 'Su151015
Dim sTmp$
sTmp = "0.5 = " & Round(0.5, 0) & vbTab & Application.Round(0.5, 0) & vbLf & "1.5 = " & Round(1. _
5, 0) & vbTab & Application.Round(1.5, 0) & vbLf & "2.5 = " & Round(2.5, 0) & vbTab & Application.Round(2.5, 0) & vbLf & "3.5 = " & Round(3.5, 0) & vbTab & Application.Round(3.5, 0) & vbLf & "4.5 = " & Round(4.5, 0) & vbTab & Application.Round(4.5, 0) & vbLf & "5.5 = " & Round(5.5, 0) & vbTab & Application.Round(5.5, 0) & vbLf & vbLf
sTmp = sTmp & "0.49 = " & Round(0.49, 0) & vbTab & Application.Round(0.49, 0) & vbLf & "1.49 = " _
& Round(1.49, 0) & vbTab & Application.Round(1.49, 0) & vbLf & "2.49 = " & Round(2.49, 0) & vbTab & Application.Round(2.49, 0) & vbLf & "3.49 = " & Round(3.49, 0) & vbTab & Application.Round(3.49, 0) & vbLf & "4.49 = " & Round(4.49, 0) & vbTab & Application.Round(4.49, 0) & vbLf & "5.49 = " & Round(5.49, 0) & vbTab & Application.Round(5.49, 0) & vbLf & vbLf
sTmp = sTmp & "0.22 = " & Round(0.22, 0) & vbTab & Application.RoundUp(0.22, 0) & vbLf & "1.22 = _
" & Round(1.22, 0) & vbTab & Application.RoundUp(1.22, 0) & vbLf & "2.22 = " & Round(2.22, 0) & vbTab & Application.RoundUp(2.22, 0) & vbLf & "3.22 = " & Round(3.22, 0) & vbTab & Application.RoundUp(3.22, 0) & vbLf & "4.22 = " & Round(4.22, 0) & vbTab & Application.RoundUp(4.22, 0) & vbLf & "5.22 = " & Round(5.22, 0) & vbTab & Application.RoundUp(5.22, 0) & vbLf & vbLf
sTmp = sTmp & "0.88 = " & Round(0.88, 0) & vbTab & Application.RoundDown(0.88, 0) & vbLf & "1. _
88 = " & Round(1.88, 0) & vbTab & Application.RoundDown(1.88, 0) & vbLf & "2.88 = " & Round(2.88, 0) & vbTab & Application.RoundDown(2.88, 0) & vbLf & "3.88 = " & Round(3.88, 0) & vbTab & Application.RoundDown(3.88, 0) & vbLf & "4.88 = " & Round(4.88, 0) & vbTab & Application.RoundDown(4.88, 0) & vbLf & "5.88 = " & Round(5.88, 0) & vbTab & Application.RoundDown(5.88, 0)
MsgBox sTmp '0-2-2-4-4-6
'round() scheint nicht immer richtig zu funktionieren, Application.round() hingegen schon
End Sub

mfg Pepi

Beliebteste Forumthreads (12 Monate)

Rundungsformel mit Variablen auf 5 runden

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

323 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Rundungsformel mit Variablen auf 5 runden

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

323 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread