Schleife über mehrere Tabellenblätter
18.08.2013 14:55:06
Yann
ich möchte gerne in meiner Excel-Datei (30 Tabellenblätter) ab dem 5. Blatt bis Ende alle Blätter sortieren. Jeweils die Spalte "G" von Zeile "8" bis "..." so weit wie im jeweiligen Blatt Zeilen ausgefüllt sind. Die Sortierung soll nach drei Farben ausgeführt werden (blau, orange, weiß).
Frage: Wie bekomme ich eine Schleife für die Sortierung mehrerer Tabellenblätter?
Danke für den Versuch von Marc, hat leider noch nicht funktioniert. Ich schicke mal einen Auszug der Datei - in Modul 7 findet ihr das Makro (Sortierung_Marc).
https://www.herber.de/bbs/user/86901.xlsm
Geht hier nicht mehr weiter:
Die Sort-Eigenschaft des Range-Objektes kann nicht zugeordnet werden
.Range("A7:Q4000").Sort.SortFields.Clear
Ich komme nicht mehr weiter:(
Danke
Yann
Sub Sortierung()
' Sortierung Makro
Application.ScreenUpdating = False
Dim Wiederholungen As Integer
Dim ws As Worksheet
For Wiederholungen = 5 To Worksheets.Count
With Worksheets(Wiederholungen)
lz = .Cells(Rows.Count, "Q").End(xlUp).Row 'letzte Zeile in Q
.Range("A7:Q4000").Sort.SortFields.Clear
.Range("A7:Q" & lz).Select
With .Sort
.SortFields.Clear
.SortFields.Add(.Range("G8:G" & lz), xlSortOnCellColor, xlAscending, , xlSortNormal) _
_
_
.SortOnValue.Color = RGB(204, 255, 255)
.SortFields.Add(.Range("G8:G" & lz), xlSortOnCellColor, xlAscending, , xlSortNormal) _
_
_
.SortOnValue.Color = RGB(252, 213, 180)
.SortFields.Add Key:=Range("G8:G" & lz), SortOn:=xlSortOnCellColor, Order:= _
xlAscending, DataOption:=xlSortNormal
.SetRange Range("A7:Q" & lz)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
Next Wiederholungen
Application.ScreenUpdating = True
Range("A1").Select
End Sub