Tekst en tekens weglaten in cel met getallen

[Marky76]

Ik heb in bijlage een bestandje gezet met in kolom A gegevens met getallen in.
In kolom B zou ik een formule willen vinden die enkel het getal 503 weergeeft en
alles wat tekst is of andere tekens achterwege laat.

Groeten,

 

[Cotje]

Volgens mij is hier geen passende formule voor. Je zou wel met visual basic iets kunnen maken.

 

[richard1970]

Hoi Marky,

Als het alleen gaat om het getal 503, dan kan dat met:
=ALS(ISNB(DEEL(A9;VIND.ALLES(503;A9;1);3));"";DEEL(A9;VIND.ALLES(503;A9;1);3))
Als het gaat om de getallen uit de reeks met cijfers en letters, dan wordt dat lastiger.

Richard

 

[Wigi]

Inderdaad, je kan niet anders dan met VBA werken.

Probeer deze UDF eens:

Function ExtractNumber(rCell As Range)
Dim iCount As Integer, i As Integer
Dim sText As String
Dim lNum As String

sText = rCell

	For iCount = Len(sText) To 1 Step -1
		If IsNumeric(Mid(sText, iCount, 1)) Then
			i = i + 1
			lNum = Mid(sText, iCount, 1) & lNum
		End If

		If i = 1 Then lNum = CInt(Mid(lNum, 1, 1))
	Next iCount


ExtractNumber = CLng(lNum)
End Function

Bron: http://www.ozgrid.com/VBA/ExtractNum.htm

Wigi

 

[Marky76]

Wigi,

Kan jij die VBA code in mijn bestandje verwerken zodat ik kan zien of het werkt??

Groeten,

 

[Wigi]

Kopieer de code naar een nieuwe module in VBA.

Dan zet je in B9:

=ExtractNumber(A9)

dan doorvoeren naar beneden.

Wigi

 

[Marky76]

De code had ik in VBA gekopieerd in een nieuwe module, maar wanneer ik dan in het
menu ga en macor's doe zie ik er geen staan, moest ik misschien in de VBA nog iets aanpassen een range of een cel.
Ik ben nog maar net begonnen met VBA en weet nog maar net wat declareren is,
IF THEN functies, maar al echt programmeren kan ik nog niet vandaar.

Dus de VBA code is niet zichtbaar, hoe laat ik die werken.

De formule die je geeft die werkt heb ik geprobeerd, maar heeft toch niets met de VBA te maken, niet??

Groeten,

 

[Wigi]

Dus de VBA code is niet zichtbaar, hoe laat ik die werken.

De formule die je geeft die werkt heb ik geprobeerd, maar heeft toch niets met de VBA te maken, niet??

Er wordt een nieuwe functie gemaakt die je overal in het werkblad kan gebruiken. Maar om die te maken heb je wel VBA nodig. Dat is de code die ik gaf.

Er moet geen code uitgevoerd worden. Gewoon de functie oproepen met zijn naam en het vereiste argument (het bereik). Meer niet.

Wil je de functie aanpassen, ga dan naar de code en doe je aanpassingen daar.

Wigi

 

[Demeter]

Functies maken

Netjes met z'n een eigen gemaakte formule.
Moet daar zelf ook een keer in duiken.

Wigi heb jij hier misschien wat tips voor (website)?

Mark,
Hierbij de file met de code erin, heb zelf de formule getest van Wigi en werkt perfect.

Thanks Wigi:thumb:


Groet,
Ferenc

 

[Wigi]

Wigi heb jij hier misschien wat tips voor (website)?

Het principe is simpel.

Gebruik

Function en End function

ipv

Sub en End sub

Doe je macro en geeft aan wat de uitkomst moet zijn van je functie: in het voorbeeld is dat deze regel:

ExtractNumber = CLng(lNum)

Telkens als mij gevraagd wordt om links te geven schrijf ik iets over Ozgrid (Excel VBA forum): www.ozgrid.com/forum

Zoek dus op dit forum op "Ozgrid" en je vindt vast nuttige links.

Google ook op UDF of User defined function.

Kan niet mis gaan dan

Wigi