Horizontale Stringumwandlung

[Elke Boese]

Hallo,

habe folgendes Problem.

Statt der vertikalen Umwandlung der Werte in einen String

Code:

Dim str
str = Join(WorksheetFunction.Transpose(Range("A1:A5")))

brauche ich eine horizontale Umwandlung der Werte in einen String, also so etwas:

Code:

Dim str
str = ??? Range("A1:E1")

[Jonas0806]

Hallo,

Code:

   With Application
       strtext = Join(.Transpose(.Transpose(Me.Range("A1:G1"))))
   End With

[snb]

Code:

Sub M_snb()
   MsgBox Join(Application.Index([A1:E1].Value, 1, 0), "")
End Sub

[Ego]

Hallo Elke,

hier zwei in  2016 neue Möglichkeiten:

Code:

With Application
    MsgBox Join(.Transpose(.Transpose([A1:G1])))
    MsgBox Join(.Index([A1:G1].Value, 1, 0), "")
    MsgBox .TextJoin("", True, [A1:G1])
    MsgBox .Concat([A1:G1])
End With

TextJoin kann noch Trennzeichen einfügen.

[snb]

schon in Excel 95:

Code:

Sub M_snb()
   MsgBox [A1&B1&C1&D1&E1&F1&G1]
End Sub

[schauan]

Hallo Helmut,

hast Du wirklich 2016 oder 365? Da gibt es ein paar Unterschiede, z.B. Textjoin ... Das bringt in 2016 einen Fehler 1004. Auch die IntelliSense kennt es nicht Ich finde es nett formuliert schade, das MS hier solche Unterschiede macht ...