Læs værdi i en celle inden der kommer en tomme celle i rækken

Prøv med denne funktion:

Public Function clastInColumn(rLast As Range) As Variant
clastInColumn = rLast.Parent.Cells(65536, rLast.Column).End(xlUp).Value
End Function

Hvis du har værdierne i cellerne A1 til A31, kan du i celle B1 indtaste denne formel(funktion): =clastInColumn(A1), så får du værdien fra den sidste celle i kollonne A.

Denne løsning stammer fra spørgsmål: http://www.eksperten.dk/spm/460889 hvor jeg med bak's og flemmingdahl's hjælp fik løst mit problem.

Mine værdier ligger i fra A1......til AE1. Altså i en række og ikke i en kolon.
værdien fra den højste nr. i rækken som er udfyldte skal være i f.eks. celle B1.

Skal funktion skrives i B1 ???

Blot et gæt på hvordan toblers funktion "drejes":

Public Function clastInRow(rLast As Range) As Variant
clastInRow = rLast.Parent.Cells(rLast.Row, 256).End(xlToLeft).Value
End Function

Var lige borte et par timer, men det ser ud til at sjap's drejning virker.

Jeg er helt bank om brug af funktioner/koder. hvor skal jeg lægge funktionen.??

Du går ind i macroredigering med F11, og opretter et modul, derefter kopierer du nedenstående kode ind og "saver" koden.

Derefter indsætter du denne formel i felt B1: =clastInRow(A1)

Public Function clastInRow(rLast As Range) As Variant
Application.Volatile
clastInRow = rLast.Parent.Cells(rLast.Row, 256).End(xlToLeft).Value
End Function

Det fungerer. men kan du fortæl hvad de enket del af funktion gøre, så jegkan tilpasse det til det relevente opgave.

Der er et andet problem. svar cellen ligger også i samme række. jeg har værdier i nr.1 til 31 og i række nr. 32 er svar celle.
Det går galt når jeg skriver "=clastInRow(A1)" i denne celle.

Det er jeg nok ikke så clever til, men lidt input kan jeg da give dig.

=clastInRow(A1) dette er nu lig med en formel(funktion), som er gyldig i det regneark, koden er lagt ind i. A1 betyder at den skal lede i række 1, så hvis det skal være i række 12, angiver du bare A12. Funktionen kan du indsætte hvor du vil, den behøver ikke stå i B1.

Det har jeg så ikke helt styr på, men hvis du erstatter 256 med 32 og placerer =clastInRow(A1) i celle AG1 så virker, men kun hvis AF1 er blank.

tobler du har vist talt lidt forkert. Hvis funktionen skal skrives i kolonne nr. 32 er det AF kolonnen.
Hvis du laver toblers rettelse (dvs. ændrer 256 til 32), så virker funktionen - også når den placeres i AF1 og også selvom AE1 ikke er tom.

Det er ikke fordi jeg ikke kan tælle, men ved hjælp test nåede frem til den løsning, andre kombinationer virkede ikke hos mig.

Jeg har prøvet det. Det fungere fint. Nu synes jeg I begge herre har jo bidrag til at jeg kunne løse opgaven. Skal jeg dele pointene.  Er det ok fra jer ?

jeg har en tillægges spørgsmål. Hvad så hvis rækken består af en bestemt range: f.eks. fra C til AG. hvilkene ænringer skal jeg lave.

Der er lige en lille problem. tallet i række 31 kommer ikker med i svarcellen (32). Det fungere kun til rækken 31 hvor række 30 er tomme. men i mimn opgave skal jeg bruge række 31. hvad gøre jeg ???

Når du skriver "tallet i række 31 kommer" mener du så kolonne 31?

Du kunne måske bruge denne formel. Den skal indtastes som en array-formel, dvs indtastningen afsluttes med ctrl-shift-enter, således at formlen får tuborg-klammer omkring sig {}

=INDEKS($C2:$AG2;MAKS(KOLONNE($C2:$AG2)*($C2:$AG2<>"")))

Var nok lige lidt for hurtigt. Skal starte i kolonne A, Sorry
=INDEKS($A2:$AG2;MAKS(KOLONNE($A2:$AG2)*($A2:$AG2<>"")))

og skrev jeg også forkert :-)
=INDEKS($A2:$AG2;MAKS(KOLONNE($C2:$AG2)*($C2:$AG2<>"")))

Jeg kom til at tænke lidt på sammenlign-funktionen - den må da også kunne bruges:

=SAMMENLIGN("*";A1:AE1;-1)  'Hvis data er tekst
=SAMMENLIGN(9,999999E+306;A1:AE1) 'Hvis data er tal

Og nedenstående fungerer uanset om data er tekst eller tal, men så er den altså også meget mere frygtelig end baks forslag.

=HVIS(ER.FEJL(SAMMENLIGN(9,999999E+306;A1:AE1));SAMMENLIGN("*";A1:AE1;-1);HVIS(ER.FEJL(SAMMENLIGN("*";A1:AE1;-1));SAMMENLIGN(9,999999E+306;A1:AE1);MAKS(SAMMENLIGN(9,999999E+306;A1:AE1);SAMMENLIGN("*";A1:AE1;-1))))

Jeg har faktisk løst det lille problem meget simpelt.
Jeg funktionen kun hvis den sidte celle er tomme, ellers er svar lig med den sidte celle.
Jeg deler pointene ligeligt men hvordan gøre jeg det ? skal jeg tryk Accepter og så kommer der måske nogle valg muligheder .. ?

ups:  Jeg bruger ............

Du skal først markere, hvem der skal have pointene. Herefter trykker du accepter.

p.s. banazmi -> Fik du ikke prøvet min "sammenlign" (fr. kl. 13.34.44) den er jo ret enkelt og kræver ikke VBA-kode.

P.s. sjap ->  jo, men den kommer det kolon nr. hvor den sidste værdi findes. så skal jeg lave et eller andet så jeg kan hente selve værdien. Der gik jeg i står.

Nåh ja. Jeg havde jo lige glemt, at det var værdien du ville have. Så bliver det ved noget i retning af

=INDEKS(A1:AF1;1;SAMMENLIGN(9,999999E+306;A1:AE1))

Hov der skal jo stå AF1 i "begge ender" :

=INDEKS(A1:AF1;1;SAMMENLIGN(9,999999E+306;A1:AF1))

Jeg "faldt" lige over en anden mulighed (hos MS - hvem skulle have troet det?!)

=FORSKYDNING(A1;0;SAMMENLIGN(MAKS(A1:AF1)+1;A1:AF1;1)-1)

Og så kan i godt slappe af. Jeg skal nok lade være med at komme med flere lystige indfald. :0|

sjap-> din egen er bedre end MS's  :-)
1. MS har en funktion mere end din  (maks)
2. Forskydning skal genberegnes hver eneste gang der sker en beregning i excel
  Så vidt jeg husker er dette ikke tilfældet med Indeks i de nyere versioner af excel

du kan i princippet nøjes med
=INDEKS(1:1;1;SAMMENLIGN(9,999999E+306;A1:AF1))    (uden kolonnenavne i starten)

bak -> Du er nu ret snu. Den havde jeg ikke lige luret. Du må være kandidat til Falkeøjeprisen.