unterschiedliche Genauigkeiten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function calc(intT As Byte, intS As Integer, strF As String) calc = Evaluate(strF) Select Case intT Case 2: calc = WorksheetFunction.Round(calc, intS) Case 3: calc = WorksheetFunction.RoundDown(calc, intS) Case 4: calc = WorksheetFunction.RoundUp(calc, intS) End Select End Function

Hallo Jürgen,
das mit den Namen hatte ich nachgefragt, weil ich nicht verstandenen hatte, was du mit
"ich möchte den Variablennamen GlobalRunden in Excel einem Feld zuordnen
(habe ich bereits getan) und von dort aus für alle Berechnungen verändern."
meinst.
Wie hast du das getan? Meinst du mit "Feld" eine Excelzelle?
Wann und wie bekommt in deiner Mappe die globale Variable ihren Wert?
Meine Vermutung war, dass du einer Zelle den Namen "GlobalRunden" gegeben hast. Da lag ich wohl falsch.
Aber es war eine schöne Möglichkeit, die ich dann in meiner letzten Mappe umgesetzt habe.
Schreibst du mir bitte noch mal, wie du es gemacht hast?
Auf deine Frage
"eine in Excel mit einem Namen versehene Variable genauso wie eine in VBA generierte globale Variable verwenden?"
will ich natürlich auch antworten:
Wenn man in Excel einer Zelle (oder einem Zellbereich) einen Namen gibt,
kann man die Zelle (bzw. den Zellbereich) sowohl in Excel als auch in VBA unter diesem Namen ansprechen.
Das ist dann gar keine Variable. Die Verwendung des Namens ist einfach nur sprechender:
Wenn die Zelle B7 in Tabelle2 den Namen myName hat, kann man in VBA z. B.
If [myName] = 0 then
schreiben anstelle von
If Sheets("Tabelle2").Range("B7") = 0 then
oder
If Sheets("Tabelle2").Cells(7, 2) = 0 then
Mit globalen Variablen in VBA hat das nichts zu tun.
Deklariert man in VBA eine globale Variable (außerhalb einer Prozedur, evtl. mit Public),
muss man dieser Variablen in einer Prozedur einen Wert zuweisen - sonst hat sie nur ihren Initialwert
(0 bei numerischen Variablen).
Zum Abschneiden: Das ist meiner Meinung nach das Gleiche wie ABRUNDEN usw, oder?
Rückmeldung wäre nett - Grüße von Erich aus Kamp-Lintfort und noch einen schönen Sonntagabend!

Hallo Erich,
ich habe in deiner Routine die Verwendung von Variablennamen in eckigen Klammern so verstanden, das auf diese Weise in Excel selbst definierte Namen so verwendet werden.
ich habe die Routine noch weitergehend modifiziert, aber offenbar wird für den in eckigen Klammern geschriebenen Begriff nicht der Wert der aktuellen Execl-Zelle verwendet.
Habe ich da etwas falsch verstanden oder einen anderen Fehler in meiner Routine:
Option Explicit
'Dim GlobalRunden '... in Excel-Blatt bereits definiert
Public


Function RND(RundungsArt As Byte, Ausdruck As String)
' Public 

Function RND(RundungsArt As Byte, Anzahl_Nachkommastellen As Integer, Ausdruck As String)
Dim Anzahl_Nachkommastellen As Byte
Anzahl_Nachkommastellen = 2
If IsNumeric(Ausdruck) Then
RND = CDbl(Ausdruck)
Else
RND = Evaluate(Ausdruck)
End If
If RundungsArt < 10 Then    ' wenn Globales Runden erlaubt ist
If [GlobalRunden] > 1 Then RundungsArt = [GlobalRunden]
Else: RundungsArt = RundungsArt - 10
End If
Select Case RundungsArt
Case 2: RND = WorksheetFunction.Round(RND, Anzahl_Nachkommastellen)
Case 3: RND = WorksheetFunction.RoundDown(RND, Anzahl_Nachkommastellen)
Case 4: RND = WorksheetFunction.RoundUp(RND, Anzahl_Nachkommastellen)
End Select
End Function


' diese Funktion rundet der Wert des Ergebnisses von 'Ausdruck'

' abhängig von den Steuerungsparametern 'RundungsArt' und 'GlobalRunden':

' Globalrunden überschreibt die Art der Rundung die in der lokalen Funktion

' vorgegeben ist wenn diese 
' ansonsten wird immer die lokale Rundung verwendet!

'

' RundungsArt = 1 o. 11 ... keine Rundung, Ausdruck bleibt unverändert

' RundungsArt = 2 o. 12 ... Ausdruck wird normal 4/5 gerundet

' RundungsArt = 3 o. 13 ... Ausdruck wird abgeschnitten

' RundungsArt = 4 o. 14 ... Ausdruck auf den nächst höheren Wert aufgerundet

'

' GlobalRunden = 1 ... keine Rundung, Ausdruck bleibt unverändert

' GlobalRunden = 2 ... Ausdruck wird normal 4/5 gerundet

' GlobalRunden = 3 ... Ausdruck wird abgeschnitten

' GlobalRunden = 4 ... Ausdruck auf den nächst höheren Wert aufgerundet

'

' die Rundung ist fest hinter der 2. Nachkommastelle voreingestellt.

Gruss

Jürgen

Option Explicit Dim GlobalRunden Public Function calc(intT As Byte, intS As Integer, strF As String) 'GlobalRunden = 1 If IsNumeric(strF) Then calc = CDbl(strF) Else calc = Evaluate(strF) End If If GlobalRunden > 0 Then intT = GlobalRunden Select Case intT Case 2: calc = WorksheetFunction.Round(calc, intS) Case 3: calc = WorksheetFunction.RoundDown(calc, intS) Case 4: calc = WorksheetFunction.RoundUp(calc, intS) End Select End Function

Tabellenblattname: Tabelle1 A B 1 0,6 2/3 2 0,66 3 0,666 4 0,7 5 0,67 6 0,667 7 0,6 8 0,66 9 0,666 10 0,7 11 0,67 12 Fehler bei Modus 13 12 14 12,34 15 12,35 16 12,34 17 12,35 Benutzte Formeln: A1: =calc(0;1;$B$1) A2: =calc(0;2;$B$1) A3: =calc(0;3;$B$1) A4: =calc(1;1;$B$1) A5: =calc(1;2;$B$1) A6: =calc(1;3;$B$1) A7: =calc(2;1;$B$1) A8: =calc(2;2;$B$1) A9: =calc(2;3;$B$1) A10: =calc(3;1;$B$1) A11: =calc(3;2;$B$1) A12: =calc(4;2;$B$1) A13: =calc(3;2;12) A14: =calc(0;2;12,346) A15: =calc(1;2;12,346) A16: =calc(2;2;12,346) A17: =calc(3;2;12,346)

Option Explicit Dim GlobalRunden Public Function calc(intR As Byte, intS As Byte, strF As String) Application.Volatile Dim Splitcalc GlobalRunden = intR If IsNumeric(strF) Then calc = CDbl(strF) Else calc = Evaluate(strF) End If Select Case intR Case 0 Splitcalc = Split(calc, ",") calc = Splitcalc(0) If UBound(Splitcalc) = 1 Then calc = CDbl(calc & "," & Left(Splitcalc(1), intS)) Case 1: calc = Application.WorksheetFunction.Round(calc, intS) Case 2: calc = Application.WorksheetFunction.RoundDown(calc, intS) Case 3: calc = Application.WorksheetFunction.RoundUp(calc, intS) Case Else: calc = "Fehler bei Modus" End Select End Function

Beliebteste Forumthreads (12 Monate)

	A	B	C	D
1	"genau"	gerundet	abgerundet	Summen
2	0,66666666666666700	0,67	0,66
3	0,66666666666666700	0,67	0,66
4	0,66666666666666700	0,67	0,66
5	2,00000000000000000	2,01000000000000000	1,98000000000000000	Summe
6	2,00	2,01	1,98	Summe gerundet

	A	B	C	D	E	F
1	Format: Standard	Typ	Stellen
2	0,666666667	"genau"	beliebig
3	0,67	gerundet	2
4	0,6666	abgerundet	4
5			Typ:	3	Stellen:	3
6	Parameter in Zellen:
7	0,666

26 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread