Kann man ein Button zum sortieren einfügen?
04.09.2006 12:37:45
Thorsten
ich bins nochmal. Die Sache mit dem Sortieren hat super geklappt. Danke nochmal. Jetzt habe ich ein anderes Problem. Kann ich in die Excel Tabellen einen Button einfügen, dass ein Makro startet, welches mir die Daten sortiert? (Ich habe in der Arbeitsmappe zwei Tabellen) Falls das Funktioniert, muss ich dann in dem VBA-Editor auf beide Seiten, also Tabelle 1 und Tabelle 2 ein Makro einfügen, oder kann ich ein Knöpfchen einfügen und mein Makro nehmen, was in "DieseArbeitsmappe" steht? Kann ich das Knöpfchen dann auch in der Tabelle einfügen, wo ich mag? Ich füge den Code nochmal ein. Hier kommt er:
Private Sub Workbook_Open()
Dim WARTUNG As Object
Set WARTUNG = ActiveWorkbook.Sheets("Wartung")
Dim PRUEFUNG As Object
Set PRUEFUNG = ActiveWorkbook.Sheets("Prüfung")
If MsgBox("Sollen die Datensätze nun sortiert werden?", vbYesNo, "Sortieren") = vbNo Then Exit Sub
WARTUNG.Select
WARTUNG.Unprotect
Columns("E:E").Select
Range("A2:H365").Sort Key1:=Range("E3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("C3").Select
WARTUNG.Protect
PRUEFUNG.Select
PRUEFUNG.Unprotect
Columns("E:E").Select
Range("A2:H365").Sort Key1:=Range("E3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("C3").Select
PRUEFUNG.Protect
WARTUNG.Select
Range("C3").Select
End Sub
Für Eure Hilfe danke ich Euch im Voraus.
Gruß Thorsten