udtræk til excel

Prøv at vis lidt af din tekstfil her...

──────────────────────────────           
10005    SALG LØNARBEJDE    1.054.133,78        274.885,96
10036    * IALT SALG LØNARBEJDE    1.054.133,78        274.885,96

Rem Koden kopieres til VBA (Alt+F11) og indsættes i Ark1
Dim linie As String, ræk, kol
Sub konv1()
On Error GoTo luk

Rem Udpeg text-fil
    filNavn = Application.GetOpenFilename

Rem Formatere kolonne C & D til Valuta
    Columns("C:D").Select
    Selection.NumberFormat = "#,##0.00"

    Range("A1").Select
   
    ræk = 1
   
    Open filNavn For Input As #1
    While Not EOF(1)
        Line Input #1, linie
        behandlingAfLinie linie
        ræk = ræk + 1
    Wend

Rem Luk tekst-fil
luk:
    Close #1
   
    Columns.AutoFit
End Sub
Private Sub behandlingAfLinie(linie)
Dim lin As String, p, part As Variant, pDec As Currency
    kol = 1
   
    lin = linie
    While Len(lin) > 0
        p = InStr(lin, "  ")
        If p > 0 Then
            part = Left(lin, p - 1)
            part = Trim(part)
        Else
            part = lin
        End If
       
        If kol = 3 Or kol = 4 = True Then
            pDec = part
            Cells(ræk, kol) = pDec
        Else
            Cells(ræk, kol) = part
        End If
       
        kol = kol + 1
       
        If p > 0 Then
            lin = LTrim(Mid(lin, p + 1))
        Else
            lin = ""
        End If
    Wend
End Sub

hej

det var noget så tåbeligt og banalt som opsætningen i regional settings, der stod decimal seperator til . i stedet for ,

så kører det.

tak alligevel

Selv tak...