tekst naar getal

[freewilly1]

Hallo, krijg uit de mainframe tekst die ik als getal moet kunnen gebruiken in excel, gewoon tekst omzetten lukt me wel maar heb volgend probleem
vb van mijn tekst 1535.5kg heb dus verschillende getallen met telkens een punt inplaats van een komma wil dus gewoon 1535,5 verkrijgen in excel, moet dus van rechts beginnen, maar slaag er niet in, wie weet de oplossing voor mijn probleem

 

[wiki]

Snap niet wat je bedoelt. Verwijder je zelf de "kg"?

gr wim

 

[Cobbe]

Zoek/vervang is een handig hulpmiddel.
Indien dit niet chique genoeg is plaats dan een voorbeeldje van wat je hebt en wat je bereiken wil.

Cobbe

 

[freewilly1]

hallo,

Zoals mijn vb, heb een lijst met allemaal verschillende gewichten, maar ka er niet mee werken in excel
krijg dit uit mainframe als tekst 1535.8kg en wil 1535,8 gebruiken als getal om mee te rekenen

 

[Haaren101]

Wat vb?

Ron

 

[cow18]

anders met een formule

=WAARDE(SUBSTITUEREN(LINKS(A1;LENGTE(A1)-2);".";","))

maar vermoedelijk krijg je alles binnen via een txt of cvs bestand, dan lijkt het me haast eenvoudiger om het tijdens het inlezen goed aan te pakken.
Maar natuurlijk zijn we niets zonder voorbeeld;

 

[oeldere]

even voor alle duidelijkheid, we bedoelen een excelbestandje met gegevens van jouw probleem, ontdaan van gevoelige info.

 

[Haaren101]

text file mag ook hoor

Ron

 

[wiki]

Function StripAlphas(source_ref As Range) As String
'' Remove alpha characters from a string.
Application.Volatile
Dim intI As Integer
Dim strNotNum As String, strTemp As String
strTemp = ""
For intI = 1 To Len(source_ref.Value)
If Mid(source_ref.Value, intI, 1) Like "[0-9]" Or Mid(source_ref.Value, intI, 1) Like "," Or Mid(source_ref.Value, intI, 1) Like " " Then
 strNotNum = Mid(source_ref.Value, intI, 1)
Else: strNotNum = " "
End If
strTemp = strTemp & strNotNum

Next intI

StripAlphas = strTemp
End Function 'StripAlphas()

Sub Alleen_cijfers()
'

    ActiveCell.FormulaR1C1 = "=StripAlphas(RC[-1])"

End Sub

Zet deze code in een module.
ga achter een cel met de genoemde waarde staan en activeer macro alleen_cijfers

gr wim

zet

 

[freewilly1]

zie bijlage, wil nieuwe kolom met waarden die ik kan bewerken in excel

 

[Cobbe]

Zet uw cellen Opmaak Standaard.
Dan 2 x Zoeken vervangen en het loopt als een ti.t. 1 x . door , en 1 X Kg door niks

Cobbe

 

[freewilly1]

Bedankt, zal het proberen