Daten sortieren
04.09.2006 10:36:02
Thorsten
ich habe hier ein kleines Problem und hoffe doch sehr, dass mir einer von Euch helfen kann. Ich umreiße es mal kurz. Ich habe Daten, die ich sortieren möchte. Das Makro, welches unten angehängt ist, läuft auch tadellos. Ich möchte aber, dass das Makro nicht bei jedem Start von Excel ausgeführt wird, sondern dass das Programm fragt:"Sollen die Daten nun sortiert werden?". Wie binde ich denn diese Sache in das Makro ein. Die MsgBox muss ja dann auch zwei Knöpfchen haben und falls man "nein" drückt darf das Makro ja nicht ausgeführt werden.
Private Sub Workbook_Open()
Dim WARTUNG As Object
Set WARTUNG = ActiveWorkbook.Sheets("Wartung")
Dim PRUEFUNG As Object
Set PRUEFUNG = ActiveWorkbook.Sheets("Prüfung")
MsgBox "Datensätze werden nun sortiert!", vbOKOnly, "Sortieren"
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 bedanke ich mich im Voraus. Gruß Thorsten
Anzeige