plaziere mal ein button auf dem sheet und weise ihm diese makro zu:
Sub Schaltfläche1_Klicken()
Dim z, s, f, v
f = "#,##0 [$€-1];[Red]-#,##0 [$€-1]"
For z = 1 To 1000' bis 1000 Zeilen - ggf ändern
For s = 1 To 100 ' bis 100 Spalten - ggf ändern
If ActiveSheet.Cells(z, s) <> "" Then
If ActiveSheet.Cells(z, s).NumberFormat = f Then
v = ActiveSheet.Cells(z, s)
v = v * 1.2
v = 10 * (1 + Int((v - 0.001) / 10))
ActiveSheet.Cells(z, s) = v
End If
End If
Next s
Next z
End Sub
|