Zellen Formel entziehen und Wert einsetzen_Teil 2
12.12.2016 11:32:41
Major
bei dem Thema konnte mir Rudi im November schon helfen, nun nutze ich seine für eine andere Datei und das Problem ist plötzlich wieder da.
Der folgende Code soll Zellen kleiner Heute die Formel entziehen und den Wert einsetzen. Das funtkioniert nur bedingt... bei gewissen Zellen erscheint #NV, bei anderen funktioniert es. Die Formeln in den Zellen sind aber die gleichen, also mir unerklärlich. Kann es etwas mit dem Wert "0" zu tun haben? Ich glaube #NV erscheint immer nur wenn der Zellenwert "0" ist.
Sheets("Tabelle1").Select
Application.ScreenUpdating = False 'verhindert flackern
Application.Calculation = xlManual
ActiveSheet.Range("J6:XX6").Select
'neu:
Dim sel As Range
For Each sel In Selection
If sel.Value With Range(Cells(1, sel.Column), Cells(300, sel.Column)) 'Test
.Value = .Value 'Test
End With 'Test
End If 'Test
Next
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True 'verhindert flackern
'Ende Formeln von Vergangenheitswerten durch Werte ersetzen'
Danke für die Hilfe.
Gruss Major