Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1836to1840
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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)

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige