Deel cel leeg maken en aanpassen

[HBot]

Geachte..

Welke formule kan ik gebruiken om in een [cel] een deel weg te halen(wissen) en de punt in een komma te wijzigen.

Bv [cel A1] staat 40.50 g. dit wil ik wijzigen in 40,50
ik moet ruim 200 files met veel cellen die dit soort informatie bevat aanpassen.
het gewicht kan varieren van 5 gr. tot 1000 gr, kortom de punt moet een komma worden en de g. moet weg.

BVD
Hbot

 

[robdgr]

Lijkt me het eenvoudigst met twee keer een zoek-en-vervang opdracht. Zoek g. en vervang door "" en zoek . en vervang door ,

Anders krijg je een geneste substitueren-formule in een hulpkolom of een VBA-oplossing.

 

[pasan]

=LINKS(SUBSTITUEREN(A1;".";",";1);5)

zoiets?

 

[HBot]

Pasan,

Bedankt deze deze kan ik prima gebruiken,
Ga ik in een marco verwerken
HBot

 

[jolivanes]

Op een kopie van je workbook.
Als je gewichten in kolom A staan en kolom B is leeg, zou je het volgende kunnen proberen.

Sub HBot()
    Dim lr As Long
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    With Range("B1:B" & lr)
        .Formula = "=LEFT(SUBSTITUTE(RC[-1],""."","","",1),LEN(RC[-1])-2)"
        .Value = .Value
    End With
End Sub

Als je het direct in de kolom wilt doen (kolom A voor deze code)

Sub HBot_A()
    Dim lr As Long, c As Range
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    For Each c In Range("A1:A" & lr)
        c.Value = Left(WorksheetFunction.Substitute((c), ".", ",", 1), Len(c) - 2)
    Next c
End Sub