Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1352to1356
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1352to1356
1352to1356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Reihenfolgen Tabellenblätter

Reihenfolgen Tabellenblätter
21.03.2014 15:53:00
Matze
Hallo Zusammen,
ich habe die Monatsblätter 1-12 so angeordnet das diese als erstes in der Mappe gelistet sind. Danach folgen dann weitere aber für die Reihenfolgen nicht wichtig.
Wie stelle ich es nun an das die Blätter 1-12 immer so bleiben, es darf also weder ein Blatt vorne oder zwischen diese 12 Blätter eingefügt werden.
Gruß Matze

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Reihenfolgen Tabellenblätter
21.03.2014 16:09:30
serge
Hallo Matze
Ich habe es mit folgendem Makro gelöst:
Sub BlätterSortieren()
'   Register sortieren
Application.ScreenUpdating = False
Dim WS As Worksheet
Dim X As Integer
Dim Y As Integer
Set WS = ActiveSheet
For X = 1 To ActiveWorkbook.Worksheets.Count
For Y = X To ActiveWorkbook.Worksheets.Count
If Worksheets(Y).Name

Gruss Serge

AW: Reihenfolgen Tabellenblätter
21.03.2014 16:36:04
Matze
Hallo Serge,
dank vorab für die Zeilen, werde es erst später testen können, aber ich sehe schon jetzt das du .Count benutzt hast. Es geht NICHT um Alle Blätter. Melde mich wenn ich es getestet habe,
dankend Gruß Matze

Anzeige
AW: Reihenfolgen Tabellenblätter
21.03.2014 17:03:31
serge
Hallo Matze
das Makro sortiert alle Blätter, zuerst die Nummern, dann den Rest alphabetisch!
Serge

AW: Reihenfolgen Tabellenblätter
22.03.2014 08:07:01
Matze
Hallo Serge,
deine Zeilen sortieren und das ist das was ich leider nicht gebrauchen kann, denn die Reihenfolge
der Zahlen ändert sich (1,10,11,12,2,3...) anstelle von 1,2,3,4...
Ein Danke bekommst du auf jeden Fall,
Matze

Blätter verschieben ...
21.03.2014 17:06:20
Matthias
Hallo Matze
Sub verschieben()
Dim x&
For x = 12 To 1 Step -1
Worksheets("Tabelle" & x).Move Before:=Sheets(1)
Next
End Sub
Gruß Matthias

Nachtrag ...
21.03.2014 17:11:54
Matthias
Hallo
Wenn die Blätter natürlich nur 1 - 12 heißen musst Du es so machen
Dim x&
For x = 12 To 1 Step -1
Worksheets("" & x & "").Move Before:=Sheets(1)
Next
Gruß Matthias

Anzeige
AW: Nachtrag ...
22.03.2014 08:10:54
Matze
Hi Matthias,
so ist es gut, die Reihenfolge wird auch wenn Blätter eingefügt werden korrekt wiederhergestellt.
Besten Dank dafür.
Gruß Matze

Siehste, hättste ma gleich alles gelesen ;-)
22.03.2014 08:18:09
Matthias
Hallo Matze
Danke für Deine Rückmeldung :-)
schö.WE
Gruß Matthias

Nachtrag2 ...
21.03.2014 17:52:18
Matthias
Hallo
Sollten die Blätter Januar - Dezember heißen dann so ...
Dim x&
For x = 12 To 1 Step -1
Worksheets(MonthName(x)).Move Before:=Sheets(1)
Next


Ich bin natürlich bei allen Varianten davon ausgegangen,
das es diese Blätter auch wirklich gibt!
Gruß Matthias

Anzeige
AW: Blätter verschieben ...
22.03.2014 08:08:53
Matze
Hi Matti,
diese Zeilen lösen einen Laufzeitfehler 9 aus.
Matze

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige