Felder durchsuchen nach Werten
09.12.2014 13:26:05
Hans
ich muss in einer Tabelle bestimmte Bereiche durchsuchen.
Wenn dort Zahlenwerte drinstehen, muss ich diese um 9% erhöhen.
Nachfolgend mein Code-Versuch:
Dim Full As Boolean
Sub erhoehen()
For Each cell In Sheets("M_Epa").Range("D1:H1530")
If cell.HasFormula Then
'If cell.Value = IsNumeric(cell.Value) Then
cell.Value = cell.Value * 1.09
Exit For
End If
Next cell
End Sub
In den jeweiligen Zellen steht z. B. folgendes drin:
=RUNDEN(1287,39;1)
...warum auch immer, aber mit dem obigen makro werden die zahlenwerte nicht verändert
Könnt ihr mir sagen wo der Denk-/Programmierfehler ist?
Gruß
Hans
Anzeige