Mit nachfolgendem Code trage ich in einem Spaltenbereich eine Formel ein und wandle dann die Formelergebnisse in Werte um. Das klappt in aller Regel auch. Zwischendurch werden jedoch in den Zellen die Formeln (in englischer Sprache) eingetragen (ohne = Zeichen vornean).
Kann mir jemand sagen, an was das liegt und wie man das ausschliessen kann?
Danke Peter
Sub AbDate()
Call CHECK
Dim rDestin As Excel.Range, cPos As Long, strcPos As String, xPos As Long
Set rDestin = Range(Cells([zeStart].Row, [spAbDate].Column), Cells([zeend].Row, [spAbDate]. _
Column))
cPos = rDestin.Column: strcPos = spBuchstabe(cPos)
xPos = [SpName] - cPos
With rDestin
.FormulaR1C1 = "=IF(VLOOKUP(RC[" & xPos & _
"],DMinusDaten,MATCH(xxDate,DMinusDate),0) = 0,"""",VLOOKUP(RC[" & xPos & _
"],DMinusDaten,MATCH(xxDate,DMinusDate),0))"
.NumberFormat = "DD.MM.YYYY"
If [FORMELN] "JA" Then
.Value = .Value
End If
End With
valKill:
Set rDestin = Nothing
End Sub