Excel VBA Button

[dianco]

Hallo,

Ik heb een Excel VBA Button, die ik het een en ander wil laten sorteren.
Het gaat redelijk, alleen nu is mijn vraag of ik op een andere sheet ook een button kan maken om het te laten sorteren.

De huidige code die ik nu gebruik is:
"Private Sub CommandButton2_Click()
Range("b3:aa500").Sort _
Key1:=Range("e2"), Header:=xlYes
End Sub"

Is er een mogelijkheid om deze code vanaf een ander sheet te laten werken?
Alvast bedankt :thumb:

 

[LauravT]

Probeer onderstaande, vul bij Blad1 dan de naam van de juiste sheet in.

Private Sub CommandButton2_Click()
Worksheets("Blad1").Range("b3:aa500").Sort _
Key1:=Range("e2"), Header:=xlYes
End Sub

 

[dianco]

Ik heb nu deze code:

Private Sub CommandButton2_Click()
Worksheets("Maatschap Klanten").Range("b3:aa500").Sort _
Key1:=Range("e2"), Header:=xlYes
End Sub

Nu krijg ik dus als foutmelding:
Fout 1004 tijdens uitvoering:
De sorteersleutel is ongeldig. Controleer of de sleutel binnen de gegevens ligt die u wilt sorteren en of het eerste vak Sorteren op niet hetzelfde of leeg is.

Volgens mij is de sorteer sleutel "Key1"?
Als ik deze verander naar E3, wat dus binnen het gebied ligt, blijft die de zelfde melding weergeven.

 

[VenA]

Gebruik svp codetags. Probeer het zo eens

Private Sub CommandButton2_Click()
  With Sheets("Maatschap Klanten")
    .Range("b3:aa500").Sort .Range("E2"), , , , , , , xlYes
  End With
End Sub