der "Einzeiler"
Sub runden()
With Range("A1:A2")
.Value = Round(.Value, 2)
End With
End Sub
liefert bei mir den Laufzeitfehler 13 - Typen unverträglich.
Mit einer einzelnen Zelle ("A1") funzt es. Was mache ich falsch?
Gruß
David
Sub runden()
With Range("A1:A2")
.Value = Round(.Value, 2)
End With
End Sub
liefert bei mir den Laufzeitfehler 13 - Typen unverträglich.
Mit einer einzelnen Zelle ("A1") funzt es. Was mache ich falsch?
Gruß
David
Sub runden()
Dim c As Range
For Each c In Range("A1:A2")
c.Value = Round(c.Value, 2)
Next c
End Sub
Schönen Gruß,
Andi
Sub runden()
Dim c As Range
For Each c In Range("F2:F11000")
c.Value = Round(c.Value, 2)
Next
End Sub
Ich wollte es halt nur elegant im Direktfenster beim Kollegen ausführen, ohne ein "richtiges" Makro zu schreiben.
Danke.
Gruß
David