Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Div.Zellen %Werte auf- und abrunden

Div.Zellen %Werte auf- und abrunden
22.06.2021 16:18:23
Dieter(Drummer)
Guten Tag VBa SpezislistenInnen.
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
'In markierte Zellen werden Prozentwerte auf- und abgerundet
'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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Div.Zellen %Werte auf- und abrunden
22.06.2021 17:49:27
Nepumuk
Hallo Dieter,
teste mal:
Code:

[Cc]

Public Sub Proz_Rund() Dim Zelle As Range For Each Zelle In Range("A5:A6,B7:B8,A11:A12") With Zelle .Value = Application.Round(Zelle, 2) .NumberFormat = "0%" End With Next Zelle End Sub

Gruß
Nepumuk
Anzeige
AW: Div.Zellen %Werte auf- und abrunden
22.06.2021 18:09:03
Dieter(Drummer)
Danke Nepumuk,
funktioniert perfekt wie gewünscht.
Herzlichen Dank und einen angenehmen Resttag.
Gruß, Dieter(Drummer)

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige