Wie kann ich den Range("a1:a10") kopieren und in die Zelle B3 so einfügen, dass die Werte in der Zelle B3 untereinander stehen und nicht in B3:B13 eingefügt werden.
Wie kann ich den Range("a1:a10") kopieren und in die Zelle B3 so einfügen, dass die Werte in der Zelle B3 untereinander stehen und nicht in B3:B13 eingefügt werden.
=TEXTVERKETTEN(ZEICHEN(10);WAHR;A1:A10)Peter
With Range("b3")
.Value = Join(Application.Transpose(Range("A1:A10")), vbLf)
.WrapText = True
End With
Gruß