Avatar billede anedi Ekspert
13. juni 2012 - 16:03 Der er 5 kommentarer og
1 løsning

Problem med at hente rækkenummer

Hej Eksperter

Jeg har et ark med en række virksomheder i kolonne A og nogle værdier i kolonne B.

I kolonne A adskilles navnene af og til af en tom celle, hvilket er helt bevidst.

Eksempelvis
Række 1 Virks A  1
Række 2 Virks B  2
Række 3 "Tom"
Række 4 Virks C  3
Række 5 "Tom"
Række 6 Virks D  4

I celle C1 vil jeg nu gerne have et udtryk der fortæller mig, at den første gruppe af virksomheder starter i række 1. =række(A1).
Så langt så godt.

I celle D1 søger jeg et udtryk der kan fortælle mig at den første gruppe af virksomheder slutter i række 2? Udtrykket skal således gerne kunne "se" at celle A3 er tom, og angive række 2 på den baggrund.

Når jeg er nede i række fire bruger jeg følgende formel i C4
=hvis(A3="";række(A4);"")

Igen er problemet, at jeg i celle D4 skal kunne se ned i et ukendt antal rækker og returnere at anden gruppe af virksomheder stopper i række 4.

Er der nogen der kan gennemskue den?

Vh
Anedi
Avatar billede supertekst Ekspert
14. juni 2012 - 08:43 #1
I hvilken overordnet sammenhæng skal du anvende ovenstående?
Avatar billede anedi Ekspert
14. juni 2012 - 09:25 #2
Hej

Jeg skal lave en sammenligning af nogle oplysninger for en række forskellige virksomheder. Jeg skal derfor bruge række området til at definere, hvor i arket der skal slås op.

/anedi
Avatar billede supertekst Ekspert
14. juni 2012 - 09:52 #3
Ok - lidt VBA kunne levere rækkenr. som ønsket..
Avatar billede supertekst Ekspert
14. juni 2012 - 10:10 #4
Indsættes under pågældende ark:

Dim antalRækker As Long, ræk As Long
Dim startRæk As Long, slutRæk As Long
Public Sub markerGrupper()
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 1 To antalRækker
        startRæk = ræk
       
        Range("C" & ræk) = startRæk
        slutRæk = findSlutRæk(startRæk)
        Range("D" & ræk) = slutRæk
       
        ræk = slutRæk + 1
    Next ræk

End Sub
Private Function findSlutRæk(startRæk)
Dim ræk As Long
    For ræk = startRæk To antalRækker + 1
        If Range("A" & ræk) = "" Then
            findSlutRæk = ræk - 1
            Exit Function
        End If
    Next ræk
End Function
Avatar billede anedi Ekspert
14. juni 2012 - 13:04 #5
Perfekt, mange tak for det.

Smider du et svar?
Avatar billede supertekst Ekspert
14. juni 2012 - 13:13 #6
Selv tak - ja..
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