In einer Excel-Datei hab ich ca. 50 Register mit Personennamen geschrieben. Nun möchte ich diese nach Alphabet ordnen. Was muss ich da genau tun?
Vielen Dank für die Antwort.
Freundliche Grüsse Esther
Sub RegisterSortieren()
Dim AnzahlRegister As Integer
Dim I As Integer
Dim x As Integer
Dim Zaehler As Integer
' Gesamtzahl der Tabellenblaetter ermitteln
AnzahlRegister = Sheets.count
For I = 1 To AnzahlRegister - 1
x = I
For Zaehler = I + 1 To AnzahlRegister
If UCase$(Sheets(Zaehler).Name) I Then Sheets(x).Move Sheets(I)
Next I
End Sub
Grüsse vom Tipp