Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sortieren von Worksheets

Sortieren von Worksheets
11.07.2007 17:49:00
Worksheets
Hallo zusammen.
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren von Worksheets
11.07.2007 19:43:00
Worksheets
Hallo Gromminger,
so zB.
Gruß
Christoph

Option Explicit
Sub SortSheet()
Dim i%, j%
For i = 1 To Worksheets.Count
For j = i To Worksheets.Count
If Worksheets(i).Cells(2, 2).Value > Worksheets(j).Cells(2, 2).Value Then
Worksheets(j).Move Before:=Worksheets(i)
End If
Next
Next
End Sub


AW: Sortieren von Worksheets
12.07.2007 08:27:00
Worksheets
funktioniert - vielen lieben Dank!
Anzeige

96 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige