dieser Code (Sheets alphab. sortieren) funktioniert schnell und gut. (von Hajo):
Sub Sortieren ()
'Register sortieren
Dim WsW As Worksheet ' Variable für Tabelle
Dim InI As Integer ' Schleifenvariable
Dim InJ As Integer ' Schleifenvariable
Application.ScreenUpdating = False ' Bildschirmaktualisierung aus
Set WsW = ActiveSheet ' aktuelle Tabelle auf Variable _
_
schreiben
For InI = 5 To ActiveWorkbook.Worksheets.Count
For InJ = InI To ActiveWorkbook.Worksheets.Count
If Worksheets(InJ).Name
Dieser Code ist von mir aufgezeichnet.
Sortiert "Übersicht Sport" (in der eine Namentliche Auflistung in Spalte C steht) alphabetisch.
Läuft auch.
Sub AuflistungSortieren
Sheets("Übersicht Sport").Select
Range("C6:S153").Select
Selection.Sort Key1:=Range("C6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("J1").Select
Sheets("Übersicht Schießen").Protect "red13", DrawingObjects:=True, Contents:=True, Scenarios:= _
_
True
End Sub
Nur ein Problem:
Der oben stehende Sheet-Sortierer sortiert Boh...;Brü...;Böh (also ö ans Ende)
Der unten stehende Listen Sortierer sortiert Boh...;Böh...;Brü (also ö als o).
Wie kann man oben stehenden Code an die Sortierreihenfolge des unteren anpassen?
Danke
Alex