Habe im Register ca. 200 Namen und möchte gerne die Namen aufsteigend sortieren ohne das ich die im Register einzeln mit der Maus verschieben muss.
Besten Dank im Voraus
Gruss Michi
Besten Dank im Voraus
Gruss Michi
Mldg = MsgBox("sortiert die Sheets in diesem Workbook alphabetisch. Weiter?", vbInformation + vbOKCancel, "")
If Mldg = vbCancel Then Exit Sub
AnzahlRegister = Sheets.Count
For i = 1 To AnzahlRegister - 1
X = i
For Zähler = i + 1 To AnzahlRegister
If UCase$(Sheets(Zähler).Name) < UCase$(Sheets(X).Name) Then
X = Zähler
End If
Next Zähler
If X > i Then Sheets(X).Move Sheets(i)
Next i
End Sub
Gruss,
Martin
Habe mit Makro's keine gross Ahnung
könntest Du mir denn weg erklären.!!!
Gruss MICHI
Gruss,
MArtin
Hab's hinbekommen.
Gruss Michi
Optimal ist es, wenn du dir eine "personl.xls" anlegst, dann kannst du Makros dort ablegen und sie sind immer verfügbar (Dateiunabhängig). Schau mal in der Onlinhilfe nach.
Gruss,
Martin