Gemme som tekstfil med makro.

Kør den der hedder csvdk() - den klarer arbejdet. Dog skal du markere de celler du vil have med til din tekstfil

Sub csvdk()

EksportAsCSVDK "c:\test.csv", Selection

End Sub


Sub EksportAsCSVDK(strFileName As String, rngOmr As Range)

Const Delim        As String = ","      'afgrænser (delimiter)
Dim y                As Long          'tæller
Dim x                As Long          'tæller
Dim strTemp      As String              'streng til de enkelte rækker
Dim lRows        As Long              'antal rækker
Dim lCols          As Long              'antal kolonner
Dim lFno          As Long              'fil nummer

lFno = FreeFile
lRows = rngOmr.Rows.Count
lCols = rngOmr.Columns.Count
Open strFileName For Output As #lFno

For x = 1 To lRows
    strTemp = ""
    For y = 1 To lCols
        strTemp = strTemp & rngOmr(x, y).Text
        If y < lCols Then
            strTemp = strTemp & Delim
        Else
            Print #lFno, strTemp
        End If
    Next

Next
Close #lFno

End Sub

Så behøver du ikke at kopiere det sammen til kolonne A

Tak.
Det ligner noget jeg kan bruge.

Så smider jeg et svar - og håber du kan bruge det!