Automatische Sortierug

Forumthread: Automatische Sortierug

10.02.2005 10:11:22

Harald

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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Automatische Sortierug

10.02.2005 12:22:43

Eleni

AW: Automatische Sortierug

10.02.2005 12:22:43

Eleni

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

Forumthread: Automatische Sortierug

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread