Hallo
eigenlijk al laat, maar ik dacht, zal toch nog maar antwoorden
1. Sortering: deze code:
Private Sub CommandButton1_Click()
Range("A2", "E" & Range("A65536").End(xlUp).Row).Sort Range("A1"), xlAscending
End Sub
Commandbutton1 is een button op het werkblad.
2. Totalen: gebruik een Draaitabel. Zie blad 2.
Zie attachment.
Wigi