Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
856to860
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
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blätter absteigend sortieren

Blätter absteigend sortieren
30.03.2007 07:33:06
dreho
Hallo und guten Morgen,
das folgende Makro sortiert meine Blätter in der Mappe bestens.
Aber leider Auf- statt Absteigend.
Ist das möglich, dass meine 31 Journale absteigend sortiert werden.
Journal_070329, Journal_070328 ... Journal_070301
Danke für Antwort
dreho alias Markus

Sub BlaetterSortieren()
Dim iMax As Integer
Dim Ibl As Integer
Dim ibl2 As Integer
Application.ScreenUpdating = False
iMax = ThisWorkbook.Sheets.Count
For Ibl = 1 To iMax
For ibl2 = Ibl To iMax
If UCase(Sheets(ibl2).Name) _

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blätter absteigend sortieren
30.03.2007 07:48:12
Harald
Hallo Markus,
oich würde es ohne groß nachzudenken naiverweise mal mit vertauschen der Bedingung versuchen:
statt:
If UCase(Sheets(ibl2).Name) _
Also:
If UCase(Sheets(ibl2).Name) _
> UCase(Sheets(Ibl).Name) Then
Gruß Harald
AW: Blätter absteigend sortieren
30.03.2007 07:59:00
ingUR
Hallo, Markus,
drehe einfach das Relationszeichen um:
If UCase(Sheets(ibl2).Name) > UCase(Sheets(Ibl).Name) Then
Gruß,
Uwe
AW: Blätter absteigend sortieren
30.03.2007 08:05:00
dreho
Ich grosser Trottel.
Hätte ja selbst drauf kommen können.
Danke Euch beiden für den Tipp
Markus
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige