Zitat:

Jetzt hab ich leider noch das Problem dass die Isolierte Variable als Text behaldelt wird.

Public Function deVar(ByVal Textstring As String)
testv1 = "12435" 'Wofür brauchst du testv1?
' Das kommt im weiteren Code ja gar nicht mehr vor.
' Ich vermute du meinst so etwas. Nehmen wir an der Textstring wäre:
' Das ist ein Text mit %testv1% und weiter...
 
    Aufteilung = Split(Textstring, "%")
    If UBound(Aufteilung) > 0 Then
        For x = 1 To UBound(Aufteilung)
            If x Mod 2 > 0 Then
                varfind = "%" & (Aufteilung(x)) & "%"
                ' varfind ist jetzt %testv1% was ja richtig ist
                varrep = Aufteilung(x)
                ' Warum das? varrep ist hier jetzt "testv1"
                ' richtig wäre aber:
                ' varrep = testv1 (also 12435) was du ja oben definiert hast.
                Textstring = Replace(Textstring, varfind, varrep)
                ' Jetzt hättest du: Das ist ein Text mit 12435 und weiter
                ' Du aber hast: Das ist ein TExt mit testv1 und weiter
                MsgBox varfind & "    " & varrep
            End If
        Next
    End If
 
    deVar = Textstring
End Function