Kopier udvalgte Excel-celler til Word dokument med makro

Ret selv til den rigtige kolonne. Jeg har sat 2 linjeskift mellem værdierne fra cellerne, når de sættes ind i Word. Du skal selv fjerne/tilføje linjeskift i koden, hvis du har behov for mere/mindre.

****************
Public Sub KopierTekstFraCeller()
    Dim objWord As Object
    Dim objDoc As Object
    Dim objRange As Range
    Dim strText As String
    Dim lngCell As Long
   
    Set objWord = CreateObject("Word.application")
    objWord.Visible = True
    Set objDoc = objWord.Documents.Add
   
    Set objRange = ActiveSheet.Range("A:A")
   
    For lngCell = 1 To objRange.Cells.Count
        If objRange.Cells(lngCell) <> "" Then
            strText = strText & objRange.Cells(lngCell)
            strText = strText & vbCr & vbCr
        End If
    Next lngCell
   
    objDoc.Range.Text = strText
   
    Set objWord = Nothing
    Set objDoc = Nothing
End Sub

Tak! Jeg tester det på arbejdet når jeg kommer hjem fra ferie
søndag i næste uge :-)

Jamen det fungerede jo bare perfekt! Er der en måde man kan gøre det samme men at den indsætter det i en mail? (Outlook)

Set objMail = CreateObject("Outlook.application") <-- f.eks??

Så vil jeg tillade mig at smide et svar :-)

Ja, det skulle vel ikke være umuligt at bruge noget i samme stil i Outlook. Prøv :-) Eller kast evt. et spørgsmål i Outlook-kategorien, hvis det driller.

Takker :)