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.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:F1")) Is Nothing Then
UsedRange.Sort Key1:=Range(Target.Address), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End Sub
Hallo,
Ik heb deze tabel in exel gemaakt voor een klein onderzoekje als voorbeeld. Nu kun je door steeds alles te selecteren, wel sorteren maar, is er een functie om op bijv de titel te klikken om die eigenschap te selecteren(alle andere informatie moet ook weer meegaan) van klein naar groot of andersom? Ik heb zelf in exel eigenlijk niks kunnen vinden.
Alvast bedankt.
Groeten,
Suc
Waarom die hyperlinks aanwezig zijn in de tabel ontgaat me totaal = SPAM !!
...en de oplossing in post 2 dan???
Groet, Leo
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Sorteer As String
Dim iAsort As Integer, iDsort As Integer
If Not Intersect(Target, Range("A1:F1")) Is Nothing Then
'bepaal hoe het bereik gesorteerd is
For Each c In Columns(Target.Column).SpecialCells(xlCellTypeConstants)
If c.Value <= c.Offset(1).Value Then
iDsort = iDsort + 1
Else
iAsort = iAsort + 1
End If
Next c
'vul de variabele met de juiste sorteervolgorde adhv bovenstaande uitkomst
If iAsort <= iDsort Then
Sorteer = xlDescending
Else
Sorteer = xlAscending
End If
Target.Sort Key1:=Range(Target.Address), Order1:=Sorteer, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
'haal de targetcel uit de edit-mode
Target.Offset(1).Select
End Sub
