) ü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ß
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen