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

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

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
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
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige