Wiederholung auf mehrerern Tabellen

Sub SORT_Name() ' Sortiert nach Name Cells.Select ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("B2:B403"), SortOn:= _ xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Tabelle1").Sort .SetRange Range("A1:I403") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply Range("A1").Select End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SORT_Name() ' Sortiert nach Name Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ActiveWorkbook.Worksheets(ws.Name).Sort.SortFields.Clear ActiveWorkbook.Worksheets(ws.Name).Sort.SortFields.Add Key:=Range("B2:B403"), SortOn:= _ xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets(ws.Name).Sort .SetRange Range("A1:I403") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Next ws End Sub


Option Explicit
Sub SORT_Name()
' Sortiert nach Name
Dim WsTaballe As Worksheet
For Each WsTaballe In Worksheets
MsgBox WsTaballe.Name
WsTaballe.Range("A2").Sort Key1:=Range("B2"), Order1:=xlAscending, header:=xlNo,  _
MatchCase:=False, Orientation:=xlTopToBottom
Next WsTaballe
End Sub

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Falls Link nicht ausgeführt wird:
1. Link kopieren
2. rechte Maustaste neues Fenter.
3. Umschaltstaste drücken und Klick auf den Link
4. STRG+ Link mit Maus aktivieren

Option Explicit Sub SORT_Name() ' Sortiert nach Name Dim WsTaballe As Worksheet For Each WsTaballe In Worksheets MsgBox WsTaballe.Name WsTaballe.Range("A2").Sort Key1:=WsTabelle.Range("B2"), Order1:=xlAscending, header:= _ xlNo, _ MatchCase:=False, Orientation:=xlTopToBottom Next WsTaballe End Sub

Beliebteste Forumthreads (12 Monate)

Wiederholung auf mehrerern Tabellen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread