wie muß die Bedingung lauten wenn das Ergebnis der Formel
im TB als #Wert! angezeigt wird?
Range("E3").Select
ActiveCell.FormulaR1C1 = "=MID(RC[-4],FIND(""Geschäftsjahr"",RC[-4]),95)"
If Range("E3").Value = ? Then
MACH ETWAS
End If
Gruß Reinhardt
Sub t()
Range("E3").FormulaR1C1 = "=MID(RC[-4],FIND(""Geschäftsjahr"",RC[-4]),95)"
If IsError(Range("E3")) Then
MsgBox "Fehler"
End If
End Sub