ich hab ein altest Makro ausgegraben das nicht tut was ich mir vorstelle.
Ich möchte das alle markierten Zellen, wenn Sie kleiner 0,5 sind auf 0,5 aufgerundet werden.
Wie würde das am kürzesten als Makro aussehen?
Danke euch
Option Explicit
Public Sub test()
Dim objCell As Range
If TypeOf Selection Is Excel.Range Then
For Each objCell In Selection
With objCell
If Not IsEmpty(.Value) And IsNumeric(.Value) Then _
If .Value < 0.5 Then .Value = 0.5
End With
Next
End If
End Sub
VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel
Code erstellt und getestet in Office 14
Sub Round()
ActiveCell.FormulaR1C1 = "=IF(RC[-1]
Und du liest das vor 2 Minuten und hast direkt die Antwort.