Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter sortieren

Forumthread: Tabellenblätter sortieren

Tabellenblätter sortieren
17.11.2003 15:43:26
Silvie
Hallo zusammen!

Hab in der Recherche ein Makro gefunden um Tabellenblätter alphabetisch zu sortieren, funktioniert bei mir aber nicht.


Sub sorter()
AnzahlRegister = Sheets.Count 'hier kommt dann immer: Variable nicht definiert
For i = 1 To AnzahlRegister - 1
X = i
For Zähler = i + 1 To AnzahlRegister
If UCase$(Sheets(Zähler).Name) < UCase$(Sheets(X).Name) Then
X = Zähler
End If
Next Zähler
If X > i Then Sheets(X).Move Sheets(i)
Next i
End Sub


Hat jemand ne Idee?

Gruß
Silvie
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter sortieren
17.11.2003 15:48:11
geri
Hallo Silvie


Sub Tabellensort_aufsteigend()
For i = 1 To Worksheets.Count - 1
x = Worksheets(i).Name
For j = i + 1 To Worksheets.Count
If Worksheets(j).Name < x Then
x = Worksheets(j).Name
End If
Next j
Worksheets(x).Move Before:=Worksheets(i)
Next i
End Sub


auch aus Forum

gruss geri
Anzeige
funktioniert auch nicht
17.11.2003 15:52:36
Silvie
Hallo Geri!
Danke erstmal
Habs grad ausprobiert, gleiche Fehlermeldung...

Silvie
AW: funktioniert auch nicht
17.11.2003 16:15:43
Joachim K
Hallo Silvie,
versuchs mal so :


Sub sorter()
DIM AnzahlRegister as Integer
AnzahlRegister = Sheets.Count
For i = 1 To AnzahlRegister - 1
X = i
For Zähler = i + 1 To AnzahlRegister
If UCase$(Sheets(Zähler).Name) < UCase$(Sheets(X).Name) Then
X = Zähler
End If
Next Zähler
If X > i Then Sheets(X).Move Sheets(i)
Next i
End Sub


Gruß ... Joachim
Anzeige
AW: funktioniert auch nicht
17.11.2003 16:15:57
andreas e
hallo ,
arbeitest du irgendwo mit option explicit ?
wenn ja muss es heissen in der ersten zeile
dim anzahlregister as double
müsste dann laufen
Gruß
Andreas E

http://www.skripteundaufgaben.de
viele kostenlose Downloads und Links zu EXCEL und mehr
http://www.fachforen.de
eine Linksammlung zu diversen fachforen
Anzeige
28,5566421 Tabellenblätter? ;-)
17.11.2003 16:20:09
Boris
Hi Andreas,

...der Datentyp Integer sollte reichen;-)

Grüße Boris
@boris Stimmt !!! wäre wohl doch etwas schräg ! oT
17.11.2003 17:35:51
andreas e
AW: funktioniert auch nicht
17.11.2003 16:16:42
LotharR
Geri, das sollte aber gehen! Funkt nämlich bei mir bestens:)

Gruss
Lothar


Sub SortWorksheets()
Dim iCount As Integer, iFirst As Integer, iSecond As Integer
iCount = ActiveWorkbook.Worksheets.Count
For iFirst = 1 To iCount
For iSecond = iFirst To iCount
If Worksheets(iSecond).Name < Worksheets(iFirst).Name Then
Worksheets(iSecond).Move before:=Worksheets(iFirst)
End If
Next iSecond
Next iFirst
End Sub

Anzeige
AW: funktioniert auch nicht
17.11.2003 16:19:22
LotharR
Oops, Silvie natürlich ... sorry
Lothar
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige