ich hätte da mal eine Frage:
Wie bekomme ich den Code von Modul 1 der sich auf eine Aktion im Arbeitsblatt 2 bezieht in Arbeitsblatt 1 per Button gestellt ? Vielen Dank im voraus für eure Hilfe... ;-)
Gruss
Hese
Sub Sortieren()
Range("T2:T23").Select
Range("A1:T23").Sort Key1:=Range("T2"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Wie gesagt, das habe ich in dem Tabellenblatt aufgenommen, was ausgeblendet werden soll ! Will jetzt dieses auf einem anderen Tabellenblatt mittels Button ausführen lassen. :-)
Gruss
Hese
Private Sub CommandButton1_Click()
With Sheets("Tabelle2")
.Range("A1:T23").Sort Key1:=.Range("T2"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub
Der Code bezieht sich nun auf Tabelle2, wenn eine andere sortiert werden soll, dann musst Du die with-Zeile entsprechend ändern.
Schönen Gruß,
Andi