spezielle Sortierung
15.07.2004 10:46:38
Thomas
Also das mit dem geschützen Makrostart hat ja super funktioniert! Vielen Dank noch mal.
Jetzt ist aber das nächste Problem aufgetreten.
Wie kann ich eine Sortier-Regel erstellen?
D.H. im Bereich B4:AI41 stehen Mitarbeiternamen unterteilt in Name, Vorname und Bemerkungen und dann noch 31 spalten wo ich Anwesenheitskürzel pro Tag eintrage.
Jetzt ist es aber so, das in dieser Liste auch Praktikanen und Halbzeitkräfte erfasst werden und die logischerweise mit in die Alphabetische sortierung fallen.
Das will ich aber genau so nicht. Es sollen erst alle Mitarbeiter dann die Halbzeitkräfte und dann die Praktikanten jeweils in Alphabetischer Reihenfolge sortiert werden.
Ich würde bei Praktikanten ein P als ersten Buchstaben unter Bemerkung setzen und bei den Halbtagskräften ein H (falls Euch das noch hilft)
Vielen Dank schon mal im vorraus (war bestimmt nicht das letzte mal, das ich Hilfe brauche)
Sub NAMEN_SORTIEREN()
ActiveSheet.Unprotect ("xxxxxxx")
Range("B4:AI41").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B4").Select
ActiveSheet.Protect ("xxxxxxx")
End Sub