• 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.

Gegevens alfabetisch opslaan.

Status
Niet open voor verdere reacties.
J

JosEindhoven

Gebruiker
Lid geworden
4 dec 2014
Berichten
431
Hallo

Wie kan me helpen om ingegeven data automatisch alfabetisch in te voegen.
Het gaat om de ledenlijst en dan kolom D (achternaam)
 

Bijlagen

  • Opslaan.xls
    780,5 KB · Weergaven: 42
Laatst bewerkt:
Neem je sorteeractie op met de macro-recorder en plaats deze in THISWORKBOOK in een beforeclose-event.
 
Ha Sjon

Oke is me duidelijk, echter heb ik de vraag verkeerd gesteld. Het moet zijn alfabetisch invoegen.
 
zet deze in achter het blad "Ledenlijst":

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

With ListObjects("ledenlijst")
    .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Range("ledenlijst[Achternaam]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
       With .Sort
           .Header = xlYes
           .MatchCase = False
           .Orientation = xlTopToBottom
           .SortMethod = xlPinYin
           .Apply
       End With
End With

End Sub
 
Dit zal hetzelfde moeten doen.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  ListObjects("ledenlijst").Range.Sort Range("ledenlijst[Achternaam]")
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan