Automatische Sortierug

Bild

Betrifft: Automatische Sortierug von: Harald Kagerer
Geschrieben am: 10.02.2005 09:11:22

Wie kann ich eine automatische Sortierung einer Tabelle nach öffnen einer Datei realisieren?

Bild


Betrifft: AW: Automatische Sortierug von: Eleni
Geschrieben am: 10.02.2005 11:22:43

Hi Harald,

Hier einer meiner Sortiercodes, hoffe er funktioniert bei dir. Bitte das Wort "kleiner" durch das Zeichen für Kleiner ersetzten:

Dim ws As Worksheet
Dim x As Integer, Y As Integer, wsCount As Integer
Set ws = ActiveSheet
wsCount = ThisWorkbook.Worksheets.Count
For x = 1 To wsCount
For Y = x To wsCount
If Worksheets(Y).Name "kleiner" Worksheets(x).Name Then
Worksheets(Y).Move before:=Worksheets(x)
End If
Next Y
Next x
x = 1
Set ws = Nothing


Ciao, Eleni


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Automatische Sortierug"