Blätter nach Namen gruppieren

Bild

Betrifft: Blätter nach Namen gruppieren
von: ömer
Geschrieben am: 17.03.2005 00:15:25
Auf meiner Mappe sind ca 200 Blätter mit Namen
Pos1, Re1, Gu1, Pos2, Re2, Gu2, Pos3, Re3,Gu3 usw.
Ich möchte zB alle mit Pos anfangende Blätter gruppieren, dann alle mit Re anfangende und Alle mit Gu anfangende ...
so......
Danke im voraus und Gute Nacht
MFG
Ömer

Bild

Betrifft: AW: Blätter nach Namen gruppieren
von: Hajo_Zi
Geschrieben am: 17.03.2005 05:51:03
Hallo Ömer.
reicht da nicht ein sortieren?
[VBA] Register sortieren

Sub BlätterSortieren()
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 < Worksheets(X).Name Then
Worksheets(Y).Move Before:=Worksheets(X)
End If
Next Y
Next X
WS.Activate
Set WS = Nothing
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: AW: Blätter nach Namen gruppieren
von: Nepumuk
Geschrieben am: 17.03.2005 06:01:11
Morgen Hajo,
das klappt aber nur bis zu Tabelle9. Wenn es eine Tabelle10 gibt, wird diese vor die Tabelle2 einsortiert. Ömer hat z.B. Tabellen mit Namen Pos1 bis Pos70.
Gruß
Nepumuk
Bild

Betrifft: AW: Blätter nach Namen gruppieren
von: Hajo_Zi
Geschrieben am: 17.03.2005 06:07:24
Hallo Nepumuk,
Den Tabellen zweistellige Ziffern geben 01
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Bild

Betrifft: AW: Blätter nach Namen gruppieren
von: ömer
Geschrieben am: 17.03.2005 14:43:52
DANKE HAJO_ZI
ES HAT WUNDERBAR GEKLAPPT.
wie kann ich es später wieder in ursprünlicher position bringen

Pos1, Re1, Gu1, Pos2, Re2, Gu2, Pos3, Re3,Gu3 usw.
Vielen Dank im voraus
MFG
Ömer
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wochenweise Addition von verschiedenen Werten"