Sortierung verändern/beeinflussen
27.09.2004 07:53:45
Frank
ich habe unter VBA eine Funktion, welche mir alle aktuellen Tabs dem Namen nach sortiert. Nun kommen in meinen Tabnamen auch Zahlen vor (meist von 1 bis 60), und diese werden von Excel (oder Windows, kA) in folgender Form sortiert:
1
2
25
31
6
78
9
ich hätte die Sortierung aber gerne der Größe nach in folgender Form:
1
2
6
9
25
31
78
Kann mir hierbei jemand helfen, die Sortierung so zu verändern, dass die zweite Form entsteht?
Danke schonmal im voraus!
mfg Frank
P.S.: Hier noch die Funktion, welche ich zum Sortieren verwende:
Function Tabs_sortieren() As Integer
Dim i As Integer, X As Integer, Zaehler As Integer, AnzahlRegister As Integer
AnzahlRegister = Sheets.Count
For i = 2 To AnzahlRegister - 1
X = i
For Zaehler = i + 1 To AnzahlRegister
If UCase$(Sheets(Zaehler).Name) < UCase$(Sheets(X).Name) Then
X = Zaehler
End If
Next Zaehler
If X > i Then
Sheets(X).Move Sheets(i)
End If
Next i
End Function