) überschrieben werden werden.
Wie mach ich das? Ich habe leider keine Makroerfahrung.
Herzlichen Dank für Ihre Hilfe.
https://www.herber.de/bbs/user/87712.xls
Private Sub CommandButton1_Click()
Dim ra As Range, zelle As Range
Set ra = Range("J1:P75")
For Each zelle In ra
If IsNumeric(zelle) = True And zelle.Value > 0 Then
zelle.Value = WorksheetFunction.RoundDown(zelle.Value * 1.25 * 1.72 * 1.08, 1)
End If
Next zelle
End Sub
gruß