Zellen Formel entziehen und Wert einsetzen
09.11.2016 11:02:39
Major
Hallo zusammen,
habe folgendes Makro, dass bei Spalten kleiner Datum heute, die Formel aus den Zellen verwirft und nur noch den Wert des Feldes ausgibt. Das funktioniert auch ausreichend. Jedoch gibt es vereinzelt ganz wenige Zellen in der Vergangenheit, die nicht den ursprünglichen Wert zeigen, sondern #NV. Welche Möglichkeiten gibt es, dass das untenstehende Makro zu dem Zellinhalt #NV führen kann?
Vielen Dank für die Hilfe.
Gruss Major
'Start Formeln von Vergangenheitswerten durch Werte ersetzen Fertigteile'
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 < Range("A3").Value Then
Range(Cells(1, sel.Column), Cells(300, sel.Column)).Copy
'Fügt an gleicher Stelle das Kopierte ein, allerdings nur Werte'
Range(Cells(1, sel.Column), Cells(300, sel.Column)).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
'soll vergangenes Datum ausblenden'
Else
End If
Next
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True 'verhindert flackern
'Ende Formeln von Vergangenheitswerten durch Werte ersetzen'