Mehrzeiliger Text aus Zwischenablage
05.12.2020 19:23:45
JJ
ich stehe vor folgendem Problem:
Ich möchte einen mehrzeiligen Text aus der Zwischenablage in eine Zelle einfügen.
Das einfügen an sich funktiioniert mit folgendem Code auch einwandfrei:
Dim MyData As DataObject
Set MyData = New DataObject
MyData.GetFromClipboard
Tabelle7.Cells(1, 1) = MyData.GetText
Set MyData = Nothing
Das Problem ist, ich hätte gerne jede Zeile des Textes in der Zwischenablage in einer separaten Excelzeile.
Ich habe im Forum recherchiert, bin aber nur auf eine Lösung gestoßen, die jeden einzelnen Buchstaben ausliest (siehe folgender Code):
Dim iZeile As Integer
Dim iPosit As Integer
iZeile = 1
For iPosit = 1 To Len(Range("A1").Value)
If Mid(Range("A1").Value, iPosit, 1) = Chr(10) Then
iZeile = iZeile + 1
Else
Range("B" & iZeile).Value = Range("B" & iZeile).Value & Mid(Range("A1").Value, iPosit, 1)
End If
Next iPosit
Das Problem ist, dass dieser Code recht lange durchläuft, da jedes einzelne Zeichen übertragen wird.
Gibt es noch eine andere Möglichkeit, einen Mehrzeiligen Text in einzelne Zellen aufzuteilen?
Vielen Dank euch.
Grüße JJ