Hallo,
In z.B. ("A13:A300")....
Range("A13:A300") = "=SUBSTITUTE(R[0]C[3],CHAR(160),"" "")"
.... sind die Inhalte, wenn ich die Inhalte in Spalte D lösche, auch weg.
Folglich muss ich ("A13:A300") selectieren, kopieren und dann die Inhalte einfügen.
Läßt sich das auch ohne diese Schritte machen?
Danke für eure Hilfe.
Gruß
Karsten
Range("A13:A300").Copy
Range("A13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False