ich habe in einer Tabelle viele Zellen mit Formeln. Hinter jede Formel soll nun einfach "/$G$1" (also dividiere mit dem Wert aus G1)
Geht das irgendwie schneller als jede Zelle manuell zu ändern ?
Danke Euch
Stefan
Sub ergaenze()
Dim Zelle As Object
Dim rng As Range
Set rng = ActiveSheet.Range("A1:O200") 'anpassen
' prüfen ob aktive Zelle in Spalte A
For Each Zelle In rng
If Zelle.HasFormula = True Then
' dann Formel aus linker Zelle in aktive Zelle eintragen
Zelle.Formula = Zelle.Formula & "/$G$1"
End If
Next
Set Zelle = Nothing
End Sub
und laufen lassen ;-)
Dim rng
For Each rng In Cells.SpecialCells(xlCellTypeFormulas, 23)
rng.FormulaLocal = rng.FormulaLocal & "/$G$1"
Next
Gruß Matthias