Office: Formelergebnis ohne Umweg

Hallo in die Runde,
ich sehe gerade den Wald vor lauter Bäumen nicht. :-)
Folgendes funktioniert gut, aber das geht doch sicherlich ohne den Umweg einer "Berechnungszelle".

Code:

For Each c In Selection
    If c.Value <> "" Then
        c.Offset(0, 2000).FormulaLocal = "=RECHTS(" & c.Address & ";LÄNGE(" & c.Address & ")-" & delzei & ")"
        c.Value = c.Offset(0, 2000).Value
        c.Offset(0, 2000).Clear
    End If
Next

Mein erhofftes
vdeltext = Links(" & c.Address & ";LÄNGE(" & c.Address & ") - " & delzei & ")
funktiioniert nicht.

Mag mir bitte eben jemand die Augen öffnen.
Schönes Wochenende
Gruß Dirk

 

Hallo Dirk,

VBA ist englich also die englischen Begriffe.
Ich wüärde auch vermute Evlue außen rum.

 

Hallo Hajo,
danke für den Hinweis, den ich gleich probiert habe.
Leider bringt auch ,,
vdeltext = Left(" & c.Address & ", Len(" & c.Address & ") - " & delzei & ")

egal ob mit oder ohne Value ein Fehler 13 (Typenunverträglichkeit)
Variable ist String oder auch Variant getestet.

 

Warum ".." das macht den Ausdruck zu Text?

Gruß Hajo

 

Danke,
nun siehts auch viel "schicker" aus.
vdeltext = Left(c, Len(c) - delzei)
klappt gut.
Die "..." kamen noch aus "deutschformel" dort hat er mir die Werte nicht ohne genommen.
Nun ist es OK.
Nochmals danke
Grüße und ein ruhiges Wochenende
Dirk