ich möchte gern die angezeigten Beträge aufrunden und zwar
B10:M16. z.b. 1490,76 in der Zelle habe ich schon das Format
ohne tausender Punkt eingestellt.
geht das mit einem Makro ?
mfg
walter k
dim Zelle as Range
for each Zelle in Range("B10:M16")
if Vartype(Zelle.Value) = vbDouble then Zelle.Value = Worksheetfunction.RoundUp(Zelle.Value, _
0)
Next
die Anzahl der Stellen natürlich entsprechend anpassen.Public Sub Aufrunden_Abrunden()
'Dim Zelle As Object
Dim Zelle As Range
For Each Zelle In Range("C6:S16")
' If VarType(Zelle.Value) = vbDouble Then Zelle.Value = WorksheetFunction.RoundUp(Zelle. _
Value, 0)
If VarType(Zelle.Value) = vbDouble Then Zelle.Value = WorksheetFunction.Round(Zelle.Value, _
0)
Next
End Sub
einwandfrei, habe geprüft !!!Public Sub Aufrunden_Abrunden()
'Dim Zelle As Object
Dim Zelle As Range
For Each Zelle In Range("C6:S16")
' If VarType(Zelle.Value) = vbDouble Then Zelle.Value = WorksheetFunction.RoundUp(Zelle. _
Value, 0)
If VarType(Zelle.Value) = vbDouble Then Zelle.Value = WorksheetFunction.Round(Zelle.Value, _
0)
Next
End Sub
einwandfrei, habe geprüft !!!