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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen