Klippe i streng

Hvis alle formaterne paa priserne er holdt kan du traekke pris-strengen ud
= RIGHT("DincelleMedTeskst",9)
Derefter kan du ogsaa traekke de sidste 9 tegn fra saa du faar den anden streng:
= LEFT("Dincelle",Len("dincelle")-9)

Du behoever selvf ikke at goere det i den raekkefoelge. De to formularer fungerer uafhaengigt :-)

Det går ikke.. Der kan godt stå fx. 150,00 NOK eller 6.654,00 NOK

ALtså større beløb, så man ikke kan tælle sig "nemt" frem.

ok saa skal du lave et modul istedet som loeber igennem flg for hver raekke:

dim A as string, StrShop as string, StrMoney as String
dim B as integer, LeftPos as integer

A = Range("dincelle")
B= Len(A)

for i = B to 1 step -1

  if Not IsNumber(Mid(A,i,1)) And i <(B-7) Then
    LeftPos = i
    i = 1
  Next i

StrShop = Left(A,LeftPos)
StrMoney = Right(A,B-LeftPos)

Tænkte jeg nok - kan den ikke "pakkes" ind - så den bliver til en funktion, man så kan kalde på normal vis

Altså

=HentTekst (A7)

Returnerer så StrShop i feltet, hvor den tastes?

=LEFT(A1;FIND("#";SUBSTITUTE(A1;" ";"#";LEN(A1)-1-LEN(SUBSTITUTE(A1;" ";"")))))

Jo det kan den godt. Flg virker i mit regnark:

Function Shopname(a)

Dim b As Integer, LeftPos As Integer


b = Len(a)

For i = b To 1 Step -1

  If Not IsNumeric(Mid(a, i, 1)) And i < (b - 7) Then
    LeftPos = i
    i = 1
    End If
  Next i

Shopname = Left(a, LeftPos)
End Function


Naar du har lagt det i et modul kan du bare skrive
=shopname(DinCelle) i cellerne i arket du vil have det udfoert i

=VENSTRE(A1;FIND("#";UDSKIFT(A1;" ";"#";LÆNGDE(A1)-1-LÆNGDE(UDSKIFT(A1;" ";"")))))

bak -> Der er ogsaa mellemrum i butikkens navn saa det vil da ikke fungere..

Bak> Ja, det virker. Hvis du smider den som svar får du point'ene...

ok :-)

OverChord> Jo... Det fungerer faktisk...

ok min fejl det virker :-)

Så - nu fik i lige 30 hver ;-) Funktionen virker jo faktisk også!