ich habe mehrere Blätter (25) nach Namen betitelt. Gibt es eine Möglichkeit die nach Alphabet zu sortieren?
Günter
Sub SheetSortName()
Dim x As Integer, y As Integer, wsCount As Integer
wsCount = ActiveWorkbook.Worksheets.Count
For x = 1 To wsCount
For y = x To wsCount
If UCase(Worksheets(y).Name) < UCase(Worksheets(x).Name) Then
Worksheets(y).Move before:=Worksheets(x)
End If
Next y
Next x
End Sub
Problemstellung
Wie kann ich über eine VBA-Routine Datenfelder sortieren lassen?
Problemstellung
Wie kann ich Zeilen in ähnlicher Weise wie Spalten sortieren?
Problemstellung
Wie kann ich in XL8 einzelne Menüpunkte eines benutzerdefinierten Menüs alphabetisch anordnen?
Problemstellung
Wie kann ich einer Arbeitsmappe Arbeitsblätter, deren Namen in Zellen stehen, hinzufügen und die Blätter dann sortieren lassen?
Problemstellung
Wie kann ich eine Spalte mit alphanumerischen Daten sortieren?
Problemstellung
Wie kann ich die Werte in mehreren Spalten sortieren?
Problemstellung
Wie kann ich alle Zeilen eines Arbeitsblattes so sortieren lassen, daß die Werte in jeder Zeile für sich aufsteigend erscheinen?
Problemstellung
Wie kann ich in einer Tabelle mit aufsteigenden Kundennummern die Kundenspalte einem auf- und einmal absteigend sortiert haben, ohne die Sortierfunktion einzusetzen?