konverter til en fil uden koder fortsat.

Jeg har føgende data i en txt fil:

kunde nr  ekspedient  lev. dato  bilag nr. leverandør  type/st.
810000    A25        01-07-2009  270288    AA12345    501 hele
     
antal
40

Med supertekst hjælp har jeg fået følgende kode:

Rem Version 3
Rem =========
Dim filsti As String
Dim linie As String

Dim antalRækker As Long, antalKolonner As Long
Sub eksporter()
    filsti = ActiveWorkbook.Path
   
    If Right(filsti, 1) <> "\" Then
        filsti = filsti + "\"
    End If

    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    antalKolonner = ActiveCell.SpecialCells(xlLastCell).Column
   
    Open filsti + "eksport.txt" For Output As #1
        For ræk = 2 To antalRækker
            linie = ""
            For kol = 1 To antalKolonner
Rem dato-kolonne
                If kol = 3 Then
                    linie = linie + Format(Cells(ræk, kol), "ddmmyyyy")
                Else
Rem antal-kolonne
                    If kol = 7 Then
                        linie = linie + Format(Cells(ræk, kol), "00#")
                    Else
                        linie = linie + CStr(Cells(ræk, kol))
                    End If
                End If
               
                If kol = 5 Then
                    Print #1, linie
                    linie = ""
                End If
            Next kol
           
            Print #1, linie
            linie = ""
        Next ræk
    Close #1
   
    MsgBox ("Eksport afsluttet")
End Sub

Der kan være mange leveringer på hver kundenummer, ekspedient og dato. Jeg har derfor brug for, at kunne undlade de data, som går igen, når der skrives i filen. Dvs. først når der kommer et nyt kundenummer eller en  ny dato, skal den medtages i filen.

Hvem er frisk på en løsning?