Vom Range Bereich zum String

[Alison]

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?

[Jonas0806]

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.