[Løst] Excel 2010 VBA Slette komma og tall etter komma

[Bigelk]

Hei.

 

Jeg Importerer en txt med masse tall i. disse tallene inneholder Punktum og Komma. Jeg har en kode som fjerner punktummet så excel leser klarer å lese tallet som et tall. problemet er at de tallene som også inneholder komma leser ikke excel som et tall, men som tekst.

 

Jeg tenkte derfor å fjerne kommaet og tallene som kommer etter kommaet.

eller om det evt går ann å konvertere de cellene som inneholder "tall" med komma til tall

 

F,eks (I kolonne A etter jeg har fjernet Punktum)

10801,11

587,50

3256

120359,78

 

har testa Numberformat = "0" men det fungerer dårlig

 

Bare å si i fra hvis forklaringen ikke holder mål.

 

Mvh

 

Torbjørn

[Bigelk]

Hei.

 

Da har jeg fått slengt sammen en Kode som fungerer

 

    Dim Pos As Integer, Rng As Range, Cel As Range, NewStr As String, CelVal As String
    Set Rng = Range("A1:A20")
   
    For Each Cel In Rng
        Pos = InStr(Cel, ",")
        If Pos > 0 Then
            CelVal = Cel.Value
                NewStr = Left(CelVal, Len(CelVal) - 3)
                Cel.Value = NewStr
        End If
    Next Cel

 

Mvh

 

Torbjørn