macro automatisch laten uitvoeren als waarde in cell wijzigt

[sgestel]

hallo,

ik probeer een macro automatisch te laten uitvoeren zodra de waarde in een cell wijzigt. hiertoe heb ik de volgende code geprobeerd die ik deels van internet heb geplukt:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Group As String

If Target.Address = "$C$8" Then
Group = CStr(Range("c8").Value)
If Group = "" Then
Range("B2:E6").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlDescending, Key2:=Range("D2") _
, Order2:=xlDescending, Key3:=Range("E2"), Order3:=xlDescending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End If

End Sub

helaas werkt het alleen niet. wat doe ik fout?

alvast bedankt! steven

 

[sgestel]

laat maar weer... even verder zoeken op Helpmij.nl en je vindt de oplossing gewoon!!! :thumb:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If Range("C8").Value = 1 Then
Range("B2:E6").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlDescending, Key2:=Range("D2") _
, Order2:=xlDescending, Key3:=Range("E2"), Order3:=xlDescending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End If
End With
End Sub

 

[Wigi]

laat maar weer... even verder zoeken op Helpmij.nl en je vindt de oplossing gewoon!!! :thumb:

Zo willen we het horen ja

Maak ook van:

Range("B2:E6").Select
Selection.Sort ...

dit:

Range("B2:E6").Sort ...

Selecteren is niet nodig.

Wigi