Range in Variable
07.09.2017 13:01:47
Der
ich möchte einen Zellbereich getrennt in eine Variable zuweisen
Die senkrechte zuordnung A1 bis A5 klappt (mit Transpose)
bei der waagerechten A1 bis D1 (müsste ja ohne Transpose gehen) bekomm ich den Fehler 13
Beispiel
Tabelle1
| A | B | C | D | |
| 1 | AAA1 | BB1 | CC1 | DD1 |
| 2 | AAA2 | |||
| 3 | AAA3 | |||
| 4 | AAA4 | |||
| 5 | AAA5 |
Sub Testen()
Dim rng1 As Range, rng2 As Range
Dim Text1 As String
Dim Text2 As String
Set rng1 = Range("A1:A5")
Set rng2 = Range("A1:D1")
Text1 = Join(WorksheetFunction.Transpose(rng1), "; ") ' klappt
Text2 = Join(rng2, "; ") 'Laufzeitfehler 13
End Sub
Danke und Gruß