Sortieren von Worksheets
11.07.2007 17:49:00
Worksheets
Ich hoffe, Ihr könnt mir bei folgendem Problem helfen:
ich lade über ein Dialogfeld verschiedenen Worksheets ein.
Diese sollen nach dem Datum, welches in der Zelle (2,2)
eines jeden eingeladenen Workssheets sich befindet, sortiert werden.
Mein Code führt zwar zum gewünschten Ziel, aber erst nach mehrerer
Aufrufen des Makros!
Wer kann mir helfen?
Sub Tabellensort()
Dim x As String
Dim x2 As Variant
For i = 2 To Worksheets.Count - 1
x = Worksheets(i).Name
x2 = Worksheets(i).Cells(2, 2).Value
For j = i + 1 To Worksheets.Count
If Worksheets(j).Cells(2, 2).Value > Worksheets(i).Cells(2, 2).Value Then
x = Worksheets(j).Name
End If
Next
Worksheets(x).Move Before:=Worksheets(i)
i = i + 1
Next
Sheets(1).Activate
End Sub
Vielen Dank im voraus.
Gromminger
Anzeige