Thema Datum  Von Nutzer Rating
Antwort
15.02.2017 10:07:06 Benedikt
NotSolved
Blau Sortieren über alle Tabellenblätter hinweg
 15.02.2017 10:13:23 Andi
NotSolved

Ansicht des Beitrags:
Von:
Andi		 Datum:
15.02.2017 10:13:23		 Views:
644		 Rating:
     
Antwort:
  Ja
Thema:
Sortieren über alle Tabellenblätter hinweg

Hallo Benedikt

versuch mal das:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Sortieren()
'
' Sortieren Makro
'
 
'Tabellennamen muss du noch anpassen und wenn nötig weitere hinzufügt werden
tabName = Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")
 
For n = LBound(tabName) To UBound(tabName)
With Worksheets(tabName(n))
Range("AW2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.Zoom = 40
ActiveWorkbook.Worksheets("Bodygroup 2").ListObjects("Tabelle11022").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Bodygroup 2").ListObjects("Tabelle11022").Sort. _
SortFields.Add Key:=Range("Tabelle11022[Spalte18]"), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Bodygroup 2").ListObjects("Tabelle11022").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
Next n
End Sub

Gruß 

Andi

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.02.2017 10:07:06 Benedikt
NotSolved
Blau Sortieren über alle Tabellenblätter hinweg
 15.02.2017 10:13:23 Andi
NotSolved