Formeln durch Werte ersetzen
23.10.2023 19:25:20
Michi
Ich benötige mal wieder Eure Hilfe.
Mit den folgenden Code werden die Formeln durch Werte ersetzt.
Das Funktioniert soweit Prima, aber...
Leider funktioniert das nicht in den ausgeblendeten Zeilen.
Wie muss der Code angepasst werden?
Freue mich riesig auf Eure Hilfe
LG, Michi
Sub Formeln_ersetzen1()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Mappe1")
For i = 1 To .Cells(.Rows.Count, 2).End(xlUp).Row
If .Cells(i, 2) = "X" Then
With Intersect(.Rows(i), .Columns("H:J"))
.Value = .Value
End With
End If
Next i
End With
Application.ScreenUpdating = True
End Sub