Ich habe 2 Makros. Eines rundet eine einzelne Zelle und lässt die Rundungsformel stehen - gut, wenn sich die zu rundenden Werte ändern, eines, dass Werte in einem markierten Bereich rundet, jedoch ohne, dass die Rundungsformel stehen bleibt. Ich versuchte beide zusammen zu führen, weil dies wohl die interessanteste Variante ist. Leider ohne Erfolg. Kann mir hier jemand Unterstützung leisten?
Makro 1:
Sub RundenBeiBestehenderFormel()
'Rundet die bestehende Formel auf 5 Rappen
Dim F, F1 As String
Dim L As Variant
F = ActiveCell.FormulaR1C1
L = Len(F)
F = Right(F, L - 1)
F1 = "=ROUND((" & F & ")*2,1)/2"
ActiveCell.FormulaR1C1 = F1
End Sub
Makro 2:
Sub KaufmaennischRunden()
'Rundet alle markierten Zellen kaufmännisch
Dim rngBereich As Range
Dim Zelle As Range
Set rngBereich = Selection
For Each Zelle In rngBereich
If Zelle <> "" And IsNumeric(Zelle) = True Then
Zelle = Application.Round((Zelle.Value) * 2, 1) / 2
Zelle.NumberFormat = "_ * #,##0.00_ ;[Red]_ * -#,##0.00_ ;_ * ""-""??_ ;_ @_ "
End If
Next Zelle
End Sub
Ich wäre sehr dankbar für Unterstützung.
Liebe Grüsse
Monique