Clever-Excel-Forum

Hallo,
ich möchte aus den Werten in einem Range Bereich stehenden Werten einen String machen.

Code:
Sub Vom_Range_zum_String()

Dim str, str2

str = Application.Transpose(Range("A1:E1"))

str = Application.Transpose(str)

str = Join(str, vbNewLine)

'oder

str2 = Join(Application.Transpose(Application.Transpose(Range("A1:E1"))), vbNewLine)

End Sub

Ist dies der einzige Weg oder geht's doch noch schneller bzw. einfacher?

Hallo,

Du könntest maximal noch einen With-Block einsetzten, dadurch sparst Du allerdings exakt 0 Zeichen, weil len("withendwith")=len("application") wenn man die Blanks mitzählt, wirst Du sogar länger. :19:

Ich würde also sagen nein, es gibt keinen kürzeren weg.

Alison

Jonas0806