Hallo zusammen,
ich suche eine Möglichkeit, über einen Button den Text aus untereinander stehenenden Zellen in die Zwischenablage zu kopieren. Die Texte sollen dort untereinander angeordnet sein:
Text1;
Test2;
usw.
Bisher habe ich das über:
Sub Schaltfläche1_Klicken()
Dim data As DataObject
Dim Text As String
Text = Text & vbCrLf & Range("a1").Text & ";" & vbCrLf & Range("a2").Text
... gelöst.
Gibt es eine Möglichkeit das zu vereinfachen/automatisieren?
Habe versucht Variablen in die Klammern einzufügen, bisher allerdings erfolglos.
Vielen Dank vorab! |