VBA mit Loop-Speicher Wert in String

Question

Wie speichert man den Wert von A1 bis A5 auf die Zeichenfolge "Inhalt" nicht nur der A5-Wert?

i = 2 
Do 
Content = "Range("A" & i).Value" 
i = i + 1 
Loop Until i > 5 

Answer 1

Dann müssen yo es mit sich selbst verketten:

i = 2 
Do 
    Content = Content & Range("A" & i).Value 
    i = i + 1 
Loop Until i > 5 

Answer 2

Oder Sie dies versuchen:

Dim r As Range, Content As String 
Set r = Range("A1:A5") 
With Application 
    Content = VBA.Join(.Transpose(r), "") 
    Debug.Print Content 
End With 

Keine Looping erforderlich. Das ist, wenn Sie es nur verketten müssen.