ich suche nach einem kurzen Code, der in eine Tabellenspalte das Ergebnis einer Formel als Werte schreibt.
Meine Formel für die Spalte "test":
Sub String_Dateiname()
Range("Tabelle1[test]") = _
"=RIGHT(LEFT(MID(CELL(""Dateiname"",R[-15]C[-4]),FIND(""["",CELL(""Dateiname"",R[-15]C[- _
4]))+1,FIND("".xl"",CELL(""Dateiname"",R[-15]C[-4]))-FIND(""["",CELL(""Dateiname"",R[-15]C[-4]))-1),10),6)"
End Sub
Meine Makro-Lösung für Umwandlung in feste Werte:
Range("Tabelle1[test]").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Gibt es eine bessere und kürzere Lösung?
Ich habe nach Lösung im Weg gesucht und folgende Seite gefunden:
https://www.xing.com/communities/posts/formeln-in-werte-umwandeln-1002110352
werde allerdings daraus nicht schlau - was mit "Tabelle1.UsedRange.Value = Tabelle1.UsedRange.Value" gemeint ist.
Ich freu mich auf eure Tiips :-)
VG
Kisska