Avanceret sortering

Skal de enkelte kontonr. bare summeres eller skal den samtidig vise sorteringen som du skitserer nederst ?

Den skal vise sorteringen, ellers var det vel også ligetil, men sådan skal det ikke være... Kort sagt, det skal se ud som det skitserede nedenfor.

HÅ

Dataområde = A2:F4
Indsæt denne i A9 og kopier ned
=MINDSTE($A$2:$A$4;RÆKKE()-RÆKKE(A$8))
Indsæt denne i B9 og kopier ned
=HVIS(ER.FEJL(SAMMENLIGN($A9;A$2:A$4;0));"";INDEKS(A$2:B$4;SAMMENLIGN($A9;A$2:A$4;0);0))
Indsæt denne i C9 og kopier ned
=HVIS(ER.FEJL(SAMMENLIGN($A9;$C$2:$C$4;0));"";INDEKS($C$2:$C$4;SAMMENLIGN($A9;$C$2:$C$4;0);0))
Indsæt denne i D9 og kopier ned
=HVIS(ER.FEJL(SAMMENLIGN($A9;C$2:C$4;0));"";INDEKS(C$2:D$4;SAMMENLIGN($A9;C$2:C$4;0);0))
Indsæt denne i E9 og kopier ned
=HVIS(ER.FEJL(SAMMENLIGN($A9;$E$2:$E$4;0));"";INDEKS($E$2:$E$4;SAMMENLIGN($A9;$E$2:$E$4;0);0))
Indsæt denne i F9 og kopier ned
=HVIS(ER.FEJL(SAMMENLIGN($A9;E$2:E$4;0));"";INDEKS(E$2:F$4;SAMMENLIGN($A9;E$2:E$4;0);0))

Indsæt denne i A9 istedet for og kopier ned, så undgår du en fejlværdi hvis kontonr. er tomt:
=HVIS(ER.FEJL(MINDSTE($A$2:$A$4;RÆKKE()-RÆKKE(A$8)));"";MINDSTE($A$2:$A$4;RÆKKE()-RÆKKE(A$8)))

Mange tak, det virker efter hensigten.

Jeg surfer lidt mere rundt på siden og på et eller andet tidspunkt (snart) finder jeg vel ud af hvordan jeg giver dig dine points.

HÅ

Smid et svar, så kommer din points!

HÅ

Selv tak og et svar c",)

nå har jeg slitt med disse formler ganske lenge, men jeg får det ikke til å virke.
virker koden uten problemer hos deg haam1976?

hva med denne vba-løsningk, er det mulig å benytte den?

Sub SorterKonto()
  Dim tmpTab() As Variant, konto() As Variant
 
  tmpTab() = Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).row, 6))
 
  For n = 1 To 2
    lkont = -1
    For a = 1 To UBound(tmpTab, 1)
      For b = 1 To 5 Step 2
        If Not (tmpTab(a, b) = tmp Or IsEmpty(tmpTab(a, b))) Then
          lkont = lkont + 1
          tmp = tmpTab(a, b)
        End If
        If n = 2 And Not IsEmpty(tmpTab(a, b)) Then
          konto(lkont, b - 1) = tmpTab(a, b)
          konto(lkont, b) = tmpTab(a, b + 1)
        End If
      Next
    Next
    If n = 1 Then ReDim konto(lkont, 6)
  Next
 
  For n = 0 To UBound(konto, 1)
  konto(n, 6) = konto(n, 1) + konto(n, 3) + konto(n, 5)
  Next
  Cells(1, 7).Value = "TOTAL"
  Range(Cells(2, 1), Cells(UBound(konto, 1) + 2, 7)) = konto
End Sub

Hej oyejo

mrjh's forslag virker fint! Dit giver til gengæld et spørjst resultat hvor rækkerne blot rykker sig i forhold til hinanden således at ingen af kontonumrene står ud for hinanden, samt at der ingen sortering sker, de rykker sig bare.

Hvis du har forslag til ændringer, så skriv igen, jeg er altid åben for forslag.

HÅ

I første omgang var løsningen baseret på det skitserede.

Her måske en løsning på ovenstående, hvis du er interesseret.