Hallo Gemeinde,
ich möchte gerne via VBA alle Formeln in allen oder namentlich aufgezählten Sheets in Werte umwandeln, ohne die jeweilige erste Zeile.
Sub FormulasToValues()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange
If rng.HasFormula Then
rng.Formula = rng.Value
End If
Next rng
End Sub
Das hier macht das schon, nur eben mit der 1. Zeile und nur das aktive Sheet.
Ich habe mit Offset versucht die erste Zeile auszulassen, aber alle Versuche sind gescheitert.
Vlt hat ja jemand eine schnelle Idee.
Vielen Dank
|