04. februar 2010 - 13:35
Der er
4 kommentarer og 1 løsning
Returnere tal i tekststreng
Hej Har en vare der hedder "Kylling 1600g. Bornholm", har flere varer der indeholder denne vægtangivelse, og jeg skal summere efter størrelsen, ud fra de enkelte tekststrenge. Dvs. jeg skal have hevet tallet ud fra teksten således der i en celle for sig står eksempelvis 1600 tilbage. Kan ikke blot sige at cellen skal indenholde 1600, for vægtene kan svinge fra 1300 - 2200g. Eksempel: Celle a1: Kylling 1600g. Bornholm Celle a2: 1600 (Mangler denne formel) Nogen dser har en løsning på denne?
Annonceindlæg fra Trustworks
Tillid i en Zero-Trust verden
Med voksende trusler, nye EU-krav og øget kompleksitet er cybersikkerhed nu en central ledelsesopgave på linje med strategi og økonomi.
04. februar 2010 - 17:30
#2
en brugerdefineret funktion sættes i et kodemodul Function KunTal(original As String) As String Dim n As Long, ascii As Long, ret As String If Len(original) Then For n = 1 To Len(original) ascii = Asc(Mid$(original, n, 1)) If (ascii >= 48 And ascii <= 57) Or (ascii = 45) Then ret = ret & Chr$(ascii) End If Next n KunTal = ret End If End Function kaldes med =kuntal(A1)