Replace What:="#NV"
Heinz
Im unteren Code,werden die Formeln in Werte umgewandelt.
Weiters lösche ich die Nullwerte mit Replace What:="0"
Soweit funkt.auch alles.
Möchte aber auch die #NV löschen.
Das funkt.leider nicht.
Könnte mir bitte jemand weiterhelfen?
Gruß
Heinz
'von: Josef Ehrensberger Formel von Jänner bis Dezember in Werte umwandeln
Sub Test2()
Dim lngIndex As Long
Application.ScreenUpdating = False
For lngIndex = 1 To 12
With Sheets(Format(DateSerial(1, lngIndex, 1), "MMMM")).Range("C3:AG147")
.FormulaR1C1 = "=INDEX(R500C3:R523C33,MATCH(RC2,R500C2:R523C2,0),)"
.Value = .Value
.Replace What:="0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Replace What:="#NV", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
Next
Application.ScreenUpdating = True
End Sub
Anzeige