• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel vraag voor gevorderden: sorteren op basis van header

Status
Niet open voor verdere reacties.
M

mgroen1

Gebruiker
Lid geworden
10 mei 2019
Berichten
190
Wie kan mij helpen?
Ik heb een tabel waarbij de header (gele regel) als sorteringvolgorde geldt: er moet horizontaal gesorteerd worden.

Een voorbeeld werkt in dit geval denk ik het beste.
Daarom bijgevoegd voorbeeld:
bovenste tabel moet worden zoals de onderste tabel. Dit is uiteraard maar een klein lijstje maar de echte lijst is veel groter.
Is er een formule/methode voor om dit te realiseren?

Ik hoor het graag.

2021-11-14_11-37-10.jpg
 

Bijlagen

  • Map1.xlsx
    10,7 KB · Weergaven: 28
Voor A11:
Code: 
=ALS(ISGETAL(VERGELIJKEN(A$10;$A2:$J2;0));A$10;"")
Doortrekken naar rechts en onder.
 
Excel 365:
Code: 
=IF(ISBLANK(SORT(A1:J4;1;1;TRUE));"";SORT(A1:J4;1;1;TRUE))

**wauw, wat een aanvulling die nieuwe Excel365-funkties! (ook in VBA!)

Edit zie hieronder reaktie Alex, inderdaad vergeet deze formule maar ;-)
 
Laatst bewerkt:
Eric, die doet niet helemaal wat gevraagd wordt denk ik...

En ja: veel handige nieuwe functies in Excel 365!
 
Code: 
Sub M_snb()
  sn = Cells(1).CurrentRegion
  sp = sn
  
  For j = 2 To UBound(sn)
    For jj = 1 To UBound(sn, 2)
      sp(j, jj) = ""
      If Not IsError(Application.Match(sn(1, jj), Application.Index(sn, j), 0)) Then sp(j, jj) = sn(1, jj)
    Next
  Next

  Cells(20, 1).Resize(UBound(sp), UBound(sp, 2)) = sp
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan