Hallo liebe Community!

Ich feilsche nun bereits eine Zeit an diesem Problem: Ich möchte abfragen ob der Wert in C7 in einer anderen Datei vorhanden ist und wenn dieser vorhanden ist ob er mit "07" beginnt. Dann soll er mir diesen Wert übertragen.
Wenn die Formel der letzte Befehl im Makro ist, funktioniert es.
Sonst wirkt es aber so als würde er das Ergebnis nicht berechnen bzw die Formel nicht vollständig ausführen und das Feld bleibt leer.

Vielleicht habt Ihr eine Idee dazu? Danke!! :-)
In AC1 steht der erste Teil des Pfad, in ActiveCell.Offset(, 11) der zweite und in Range("AD1") der dritte.

Dim strPath As String
If Right(Range("AC1"), 1) = "" Then
strPath = Range("AC1")
Else
strPath = Range("AC1") & ""
End If

ActiveCell.NumberFormat = "General"
If ActiveCell.Formula = "=IFERROR(IF('" & strPath & "[" & ActiveCell.Offset(, 11).Value & "]" & _
Range("AD1") & "'!" & "C7" > "" Then


ActiveCell.Formula = "=IFERROR('" & strPath & "[" & ActiveCell.Offset(, 11).Value & "]" & "IRF '!" & "C13,"""")"

End If

If Mid(ActiveCell, 1, 2) = "07" Then

ActiveCell.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.NumberFormat = "@"
ActiveCell.Value = Mid(ActiveCell.Value, 1, 7)

Else


Selection.ClearContents


End If