Avatar billede hesl Nybegynder
18. december 2013 - 09:01 Der er 4 kommentarer

Søg en maks værdi og dens label

Hej,

Nu har jeg et nyt problem.

Jeg har en kolonne hvor jeg ønsker at finde maks værdien, men sagen er at jeg ønsker at vide placeringen af maks værdien enten ved at den angiver celle nummer eller at den henter data fra nabocellen som indeholder en tekst.

Nogle som har en god løsning til dette?

    1      2
A 'punkt1'  0,25
B 'punkt2'  0,45
C 'punkt3'  0,35

=Maks(A2:C2)= B2 eller 'punkt2'

Håber det giver mening.
Avatar billede tjp Mester
18. december 2013 - 10:07 #1
Sub FindMax()
  Dim i, lastRow, maxValue, maxRow, curValue
 
  lastRow = Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
  For i = 1 To lastRow
      curValue = Cells(i, 2).Value
      If curValue > maxValue Then
        maxValue = curValue
        maxRow = i
      End If
  Next
  MsgBox Cells(maxRow, 1).Value & " i celle: B" & maxRow
End Sub
Avatar billede hesl Nybegynder
18. december 2013 - 10:45 #2
Det virker men kanman i stedet få den til at skrive punktet i en celle og værdien nabo cellen fx. i række E
Avatar billede tjp Mester
18. december 2013 - 12:31 #3
Tja, skift 'MsgBox Cells(maxRow, 1).Value & " i celle: B" & maxRow' ud med fx:
  ActiveSheet.Cells(1, 5) = "Celle: B" & maxRow
  ActiveSheet.Cells(1, 6) = Cells(maxRow, 1).Value
Avatar billede hesl Nybegynder
11. marts 2014 - 14:30 #4
Det giver ikke max værdien og faktisk får jeg også forkert label???
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

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