VBA-Sortierung einer anderen Mappe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo di

mal als Ansatz

With Workbooks("Adresse.xls").Worksheets("Tabelle3")
.Range("A1:G8").Sort Key1:=.Range("G1"), Order1:=xlDescending, Key2:=.Range("B1") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
End With

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

Hallo Hajo_Zi,

hat etwas gedauert, bis ich's umgesetzt hab'.
Danke, dass Du innerhalb 2 min. reagiert hast. Hat mir 'ne Menge Steß erspart.
War noch etwas tricky, aber so läuft's (s. unten). Hab' Dich zum Danke "verewigt" (Ehre, wem Ehre gebührt!)
Dir und dem Forum noch an schönes Wochenende.
Adi

(Anmerkung: zur Laufzeit ist ActiveWorkbook nicht gleich ThisWorkbook)

'Sortierung DataBlatt ... ....................................... Anf
maxZeilenDataBlatt = ThisWorkbook.Sheets(DataBlatt).Cells.SpecialCells(xlCellTypeLastCell).Row
maxSpaltenDataBlatt = ThisWorkbook.Sheets(DataBlatt).Cells.SpecialCells(xlCellTypeLastCell).Column

'Honor to Hajo_Zi
With ThisWorkbook.Sheets("Data")
.Range(.Cells(ersteDatenzeileDataBlatt, 1), .Cells(maxZeilenDataBlatt, maxSpaltenDataBlatt)).Sort _
Key1:=.Cells(ersteDatenzeileDataBlatt, AuftragsNrSpalteDataBlatt), Order1:=xlAscending, _
Key2:=.Cells(ersteDatenzeileDataBlatt, UnterauftragsNrSpalteDataBlatt), Order2:=xlAscending, _
Header:=xlNo, MatchCase:=False
End With
'Sortierung DataBlatt ........................................... End

Beliebteste Forumthreads (12 Monate)

VBA-Sortierung einer anderen Mappe

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA-Sortierung einer anderen Mappe

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread