Wie kann ich folgende Formel per VBA einfürgen?
"=WENN(ISTFEHLER(Kolding!C5);" - ";Kolding!C5)"
Für eine Antwort vielen Dank im voraus!
MfG
Ludwig
Dim wks As Worksheet
Set wks = Worksheets("Kolding")
If (IsError(wks.Range("C5"))) Then
Range("B2").Value = " - "
Else
Range("B2").Value = wks.Range("C5")
End If
Set wks = Nothing
Gruß MatthiasSub Formel()
Range("B2").FormulaLocal = "=WENN(ISTFEHLER(Kolding!C5);" - "; _
Kolding!C5)"
End Sub
Gruß Matthias