Avatar billede perhol Seniormester
18. april 2004 - 22:16 Der er 13 kommentarer og
1 løsning

Værdi fra sidste celle i kolonne

I et regneark har jeg datoer i kolonne A, startende i række 30.
Foreløbig går arket til række 207.

Jeg vil gerne have datoen fra den til enhver tid nederste celle i kolonnen der ikke er tom op i celle A2.

I kolonne G har jeg en sammentalt saldo startende i række 30, ligeledes med sidste celle i række 207.

Jeg vil gerne have værdien fra den til enhver tid nederste celle i kolonne G der ikke er tom op i celle E2.

Hvordan gør jeg det?

Jeg troede at jeg havde fundet svaret i et svar fra bak på spørgsmål 460889 fra den 4/2 - 2004 kl. 14:34:44, jeg kan bare ikke finde ud af hvad jeg skal gøre med den funktion bak angiver
Avatar billede kabbak Professor
18. april 2004 - 22:29 #1
Kald med =SidsteCelle(A:A), for A kolonnen

og =SidsteCelle(E:E), Fot E kolonnen

Public Function SidsteCelle(Kolonne As Range)
SidsteCelle = Cells(65536, Kolonne.Column).End(xlUp)
End Function


den skal smides i et modul
Avatar billede perhol Seniormester
18. april 2004 - 22:37 #2
Hvordan 'smides i et modul'?
Jeg har højreklikket på arkfanen, valgt Vis programkode og i den fremkaldte Visual Basic editor sat din kode ind i Microsoft Excel Objekts - Ark 1(Ark 1) og derefter indsat kaldet i celle A2 i arket.
Jeg får bare en fejltekst i cellen (#NAVN?).
Lidt det samme som jeg fik med bak's løsning.
Hvad gør jeg forkert?
Avatar billede kabbak Professor
18. april 2004 - 22:40 #3
du skal ikke sætte den i ark modulerne.

oppe i menulinien vælger du indsæt modul, så får du en der hedder modul1, der der derind den skal.
Avatar billede perhol Seniormester
18. april 2004 - 22:50 #4
I menuen Vis er der følgende:
Celler, Rækker, Kolonner, Regneark, Diagram, Symbol, Sideskift, Funktion, Navn, Kommentar, Grafisk fremstilling, Objekt og Hyperlink, men ikke noget 'Modul'!
Det er Excel 2003 jeg bruger.
?????
Avatar billede kabbak Professor
18. april 2004 - 22:53 #5
det er inde i VBA  menuen, højreklik på en arkfane, vælg vis programkode., der indsæt derinde du skal bruge.
Avatar billede perhol Seniormester
18. april 2004 - 22:59 #6
Det virker - Det virker.
Jeg hopper og danser af glæde!
Nåee jo, jeg skal jo også lige have et svar jeg kan acceptere.
Forresten, tror du også den virker i Excel 5.0/95?
Avatar billede kabbak Professor
18. april 2004 - 23:03 #7
Der er øverst fra venstre:
File,Edit,View, Insert
det er Insert (Indsæt) du skal bruge

Der under er:

Module
Avatar billede kabbak Professor
18. april 2004 - 23:06 #8
Ja selvfølgelig virker det, ;-))

Bare du husker at bruge det rigtige modul.

Med hensyn til de gamle excel'er, må du jo prøve.
Avatar billede perhol Seniormester
18. april 2004 - 23:06 #9
Tak kabbak.
Tag lige og smid et svar så jeg kan acceptere og holde op med at danse.
Avatar billede perhol Seniormester
18. april 2004 - 23:07 #10
Ups, der var svaret jo.
Tak endnu engang.
Avatar billede kabbak Professor
18. april 2004 - 23:08 #11
Selv tak. ;-))
Avatar billede bak Forsker
19. april 2004 - 09:01 #12
for at være på den sikre side med gamle exceller xl5/95, som jeg mener kun havde 16000 rækker, kan funktionen modificeres lidt

Public Function SidsteCelle(Kolonne As Range)
SidsteCelle = Cells(Kolonne.Rows.Count, Kolonne.Column).End(xlUp)
End Function
Avatar billede perhol Seniormester
19. april 2004 - 22:20 #13
Har prøvet den modificerede version af funktionen. Den virker i hvert fald også i Excel 2003.
Har først lejlighed til at prøve den på Excel 5.0/95 i næste uge, men har fuld tillid til at det virker.
Tak endnu engang (igen)
Avatar billede fagpoler Novice
20. april 2004 - 08:49 #14
Hvis de andre ikke virker i Excel 95 virker den her kode.
Sub til_raekke30()
    Range("A30").Select
    Do While ActiveCell >= 1
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell.Offset(-1, 0).Select
    X = ActiveCell.Value
    [A2].Value = X
   
    Range("G30").Select
    Do While ActiveCell >= 1
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell.Offset(-1, 0).Select
    Y = ActiveCell.Value
    [E2].Value = Y
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB