Indsætte tekst med linjeskift i én Excel-celle vha. VBA...

Vil godt forsøge..

Lyder lovende :)

Rem Indsættes i relevante arkFane
Rem Marker det ønskede - kopier til udklipsholder.
Rem Indsæt (Ctrl+V)i den ønskede celle - selv om det fylder mere end 1 celle
Rem VBA-koden aktiveres via "Alt+F8" / vælg "indsætUdklip" / afspil makro
Public Sub indsætUdklip()
Dim areal As Variant
Dim område, førsteCelle, række
    område = Selection.Address
    areal = Split(område, ":")
   
    Set mydata = New DataObject
    mydata.GetFromClipboard
    tekst = mydata.GetText
   
    Range(område).ClearContents
   
    Range(areal(0)).Select
    Selection = mydata.GetText(1)
   
    række = ActiveCell.Row
    Rows(række).Select
    Selection.RowHeight = 15
End Sub

Tak - tester det senere på dagen..

Det ser godt ud, men kan man undgå den der firkant ved alle linjeskift?

Måske - skal prøve

Rem VERSION 2
Rem =========
Rem Indsættes i relevante arkFane
Rem Marker det ønskede - kopier til udklipsholder.
Rem Indsæt (Ctrl+V)i den ønskede celle - selv om det fylder mere end 1 celle
Rem VBA-koden aktiveres via "Alt+F8" / vælg "indsætUdklip" / afspil makro
Public Sub indsætUdklip_2()
Dim areal As Variant, tekst As String, tekst2 As String, tekst3 As String
Dim område, førsteCelle, række
    område = Selection.Address
    areal = Split(område, ":")
   
    Set mydata = New DataObject
    mydata.GetFromClipboard
   
    Range(område).ClearContents
   
    tekst = mydata.GetText(1)
    tekst2 = Replace(tekst, Chr(13), "")
    tekst3 = Replace(tekst2, Chr(11), Chr(10))
   
    Range(areal(0)).Select
    Selection = tekst3
   
    række = ActiveCell.Row
    Rows(række).Select
    Selection.RowHeight = 15
End Sub