Excel 2007 tilpasning

Tror måske at VBA kan hjælpe på blodtrykket

Har du mulighed for at sende arket? @-adresse under min profil.

Const filNavn = "PB_gemSom.csv"                        '<-- justeres
Dim filSti As String
Dim antalRæk As Integer, antalKol As Integer, ræk As Integer, kol As Integer, linje As String
Public Sub gemSomCsv()
    Application.ScreenUpdating = False
   
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    antalKol = ActiveCell.SpecialCells(xlLastCell).Column
   
    filSti = ActiveWorkbook.Path                    'csv-fil gemmes samme lokation som Excel-filen

    Open filSti & "\" & filNavn For Output As #1
   
    For ræk = 1 To antalRæk
        linje = ""
        For kol = 1 To antalKol
            If kol < antalKol Then
                linje = linje & Cells(ræk, kol) & ";"
            Else
                linje = linje & Cells(ræk, kol)
            End If
        Next kol
   
        Print #1, linje
        linje = ""
    Next ræk
   
    Close #1
   
    MsgBox "Gem er afsluttet"
   
   
End Sub

Super, lige hvad jeg manglede, mange tak for hjælpen.

Selv tak..