ich habe das folgende Makro. Könnte mir jemand sagen, wie und wo es as anpassen muss, dass es auch große Zahlen, wie 3921 auf drei signifikante Stellen rundet, sprich 3921? Oder 3925 auf 3930.
Sub test()
Worksheets("Konzentrationsberechnung").Unprotect Password:="ICP"
Dim Cells As Range
soll = 3 'die soll-Anzahl der signifikanten stellen
anzZeil = Selection.Cells.Count 'Zellenanzahl ermitteln
For Each Cells In Range("H10:I53,K10:L53,N10:O53").SpecialCells(xlCellTypeFormulas, _
xlNumbers) 'Schleifenstart von zelle 1 bis letzte Zelle
tmp = Cells 'einlesen neuer Zelle
If tmp 1 dann trenne die Zahl bei , und _
sag mir wie lang sie ist
'bei Amerikanischer einstellung muss hier das , duch einen . ersetzt werden
'aus 152,5648 mach er hier 152 = 3 Stellen vor dem ,
End If
If anzNach ?0.000
End If
Next Cells
Worksheets("Konzentrationsberechnung").Protect Password:="ICP"
End Sub
Vielen Dank
Anne