In Zellen Nachkommastellen entfernen
09.04.2021 14:54:10
Dieter(Drummer)
Wie muss der folgende Code, der in den 3 Zellen die Nachkommastellen entfernt, kürzer sein, dammit nicht jede einzelne Zelle selectiert werden muss? Es muss nicht gerundet werden. Die Zelle hat bereits das Zahlenformat mit Nachkommastellen "0", aber durch kopieren aus anderer Zelle in diese Zellen, werden Nachkomastellen eingefügt.
Hier selectiere ich jeder Zelle separat. Geht dies kürzer? Wenn ja, wie?
Sub Nachkomma_raus()
Sheets("AnDoc").Range("H20").Select
With ActiveCell
.Offset(0, 0).Value = WorksheetFunction.Round(.Value, 0)
Sheets("AnDoc").Range("H21").Select
With ActiveCell
.Offset(0, 0).Value = WorksheetFunction.Round(.Value, 0)
Sheets("AnDoc").Range("H22").Select
With ActiveCell
.Offset(0, 0).Value = WorksheetFunction.Round(.Value, 0)
End With
End With
End With
End Sub