Læsning af excel fil - Numeriske felt formaterede som tekst felt

Du skal være velkommen til at sende filen - @-adresse under min profil.

og så velkommen til Eksperten..

Sub konverterTilNumerick()
Dim ræk As Long, kol As Integer, værdi As Double
    Application.ScreenUpdating = False
   
    For ræk = 2 To 65000
        If Range("A" & ræk) = "" Then
            Application.ScreenUpdating = True
            MsgBox "Afsluttet"
            Exit Sub
        Else
            For kol = 6 To 10
                Cells(ræk, kol).Select
                If IsNumeric(Selection) = True Then
                    værdi = Selection
                    ActiveCell.FormulaR1C1 = værdi
                    Selection.NumberFormat = "0.00"
                End If
               
                With Selection
                    .HorizontalAlignment = xlRight
                End With
               
            Next kol
        End If
    Next ræk
End Sub

Kanon og takker

Jeg forsøger lige igen

..du er ikke den første .. henvis blot til denne tråd i emne og anfør "Point til Supertekst" i overskrift.

"Point til Supertekst"

Se:
http://www.eksperten.dk/spm/960770