Div.Zellen %Werte auf- und abrunden
22.06.2021 16:18:23
Dieter(Drummer)
In versch. Zellen sollen die Prozentwerte, mit mehreren Nachkommastellen, auf - und abgerundet werden.
Diese beiden Codes funktionieren, s. Musterdatei: https://www.herber.de/bbs/user/146725.xlsm
Wie kann ich beide Codes zu einem machen, evtl. auch ohne Select?
Mit der Bitte um Hilfe,
grüßt Dieter(Drummer)
Code in Modul1
'Markierung Muster Prozentwerte
Sub Marker()
ActiveSheet.Range("A5:A6,B7:B8,A11:A12").Select
Call Proz_Rund
'Nachkommastellen weg
Selection.NumberFormat = "0%"
Range("A1").Select
End Sub
'und Nachkommastellen entfernt
Sub Proz_Rund()
Dim Zelle As Range
For Each Zelle In Selection
Zelle.Value = Application.WorksheetFunction.Round(Zelle, 2)
Next Zelle
End Sub
Anzeige