Office: (Office 2007) zwei Tabellen gleichzeitig sortieren

anatolson · 29. Juli 2009

Hallo Experten,

ich würde mich sehr freuen, wenn mir jemand bei folgendem Problem helfen könnte:

in einem Sheet habe ich zwei Tabellen. In der Tabelle 1 stehen in Spalten die Monaten und in Zeilen Unternehmennamen. Tabelle 2 sieht identisch aus. Nur die Inhalte unterscheiden sich, und zwar in Tabelle 1 steht Umsatzgröße und in Tabelle 2 Mitarbeiteranzahl.

Ich möchte, dass wenn ich die Tabelle 1 die Größe nach sortiere, ändert sich entsprechend die Reihenfolge in Tabelle 2.

Ist es über VBA möglich??

Danke im voraus

anatolson

:)

jinx · 31. Juli 2009

Moin, anatolson,

ja, z.B. indem die Sortierungsfunktion auf beide Tabellen nacheinander zugreift. Soll dabei immer nur eine Art der Sortierung zum Tragen kommen oder möchtest Du noch eine UserForm mit Optionen einbauen lassen?

anatolson · 31. Juli 2009

Hallo,

es sollte eine einfache Sortierung sein, ohne UserForm.

Ehrlich gesagt weiß ich jedoch nicht, wie die Vorgehensweise aussieht, wenn der Sortierungsvorgang auf beide Tabellen zugreifen soll... ;(

danke

anatolson

jinx · 31. Juli 2009

Moin, anatolson,

ein Makro aufzuzeichnen wäre doch schon einmal eine prima Idee (und würde eine gute Grundlage) bieten:

Code:

Sub Makro1()
Dim wksTab1 As Worksheet
Dim wksTab2 As Worksheet
Dim lngLastEntry As Long
Dim lngLastCol As Long

Set wksTab1 = Sheets("Tabelle1")
Set wksTab2 = Sheets("Tabelle2")
With wksTab1
lngLastEntry = .Cells(Rows.Count, "A").End(xlUp).Row
lngLastCol = .Cells(2, Columns.Count).End(xlToLeft).Column
.Sort.SortFields.Clear
.Sort.SortFields.Add _
Key:=.Range(.Cells(2, lngLastCol), .Cells(lngLastEntry, lngLastCol)), _
SortOn:=xlSortOnValues, _
Order:=xlDescending, _
DataOption:=xlSortNormal
.Activate
With .Sort
.SetRange Range(Cells(1, 1), Cells(lngLastEntry, lngLastCol))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
With wksTab2
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Range(.Cells(2, lngLastCol), .Cells(lngLastEntry, lngLastCol)), _
SortOn:=xlSortOnValues, _
Order:=xlDescending, _
DataOption:=xlSortNormal
.Activate
With .Sort
.SetRange Range(Cells(1, 1), Cells(lngLastEntry, lngLastCol))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

anatolson · 31. Juli 2009

Danke!!

ich moechte gerne die Tabelle 1 so formatieren, dass in jeder Spalte (unabhaengig von anderen Spalten) die Werte absteigend sortiert werden...

Sorry fuer so viele Fragen *wink.gif*

danke danke

anatolson

jinx · 31. Juli 2009

Moin, anatolson,

wenn wie beschrieben links die Unternehmensangaben stehen, wird bei einer spaltenweisen individuellen Sortierung aber der Bezug zwischen Unternehmen und Monatsdaten aufgehoben... *confused.gif* Meinst Du das wirklich so? *rolleyes.gif*

anatolson · 1. August 2009

Hallo,

du hast natuerlich recht.

Ich brauche jedoch keine Info, welche Mitarbeiterzahl zu welchem Unternehmen gehoert, sondern nur die Reihenfolge.

Das Problem ist, dass die Mitarbeiterzahl (diese steht in Tabelle 2) nicht selbst die Groesse nach sortiert werden sollen, sondern nach Unternehmensgroesse von Tabelle 1. Die Tabelle 2 soll deswegen die Sortieruengsreihenfolge von Tabelle 1 uebernehmen...

Dazu sollen die Spalten in Tabelle 1 von anderen unabhaengig sortiert werden...

gibt's dafuer die Hoffnung?? *Smilie

danke!!

anatolson

jinx · 1. August 2009

Moin, anatolson,

unter Excel2000 habe ich das so gelöst:

Code:

Sub anatolson_mod()

Dim wksTab1 As Worksheet
Dim wksTab2 As Worksheet
Dim lngLastEntry As Long
Dim lngLastCol As Long

On Error GoTo anatolson_mod_Error

Set wksTab1 = Sheets("Tabelle1")
Set wksTab2 = Sheets("Tabelle2")
With wksTab1
lngLastEntry = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("A1:G" & lngLastEntry).Sort Key1:=.Range("B2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.AddCustomList ListArray:=.Range("A2:A" & lngLastEntry)
End With
With wksTab2
lngLastEntry = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("A1:G" & lngLastEntry).Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=Application.CustomListCount + 1, MatchCase:=False, Orientation:=xlTopToBottom
End With

exit_here:
On Error Resume Next
Application.DeleteCustomList ListNum:=Application.CustomListCount

Set wksTab2 = Nothing
Set wksTab1 = Nothing
On Error GoTo 0
Exit Sub

anatolson_mod_Error:

MsgBox "Fehler " & Err.Number & " (" & Err.Description & ")"
Resume exit_here

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

anatolson · 1. August 2009

Hallo!!

ich bekomme leider den Fehler 1004 "Die Methode AddCustomList fuer das Objekt '_Application' ist fehlgeschlagen".

Ist das wegen Excel 2007 oder etwas anderes??

danke noch mal

Gruesse

anatolson

jinx · 1. August 2009

Moin, anatolson,

Office Schaltfläche, Excel Optionen, Häufig verwendet, Benutzerdefinierte Listen kontrollieren - wahrscheinlich steht die Liste bereits dort und muss gelöscht werden - Code läuft bei mir 2003Server/Excel 2007 SP1 ohne Probleme durch.

anatolson · 1. August 2009

ich hab's geprueft und das scheint kein Problem zu sein.

ich werde noch probieren.

danke fuer die Hilfe

anatolson

Office: (Office 2007) zwei Tabellen gleichzeitig sortieren

zwei Tabellen gleichzeitig sortieren

zwei Tabellen gleichzeitig sortieren

zwei Tabellen gleichzeitig sortieren

zwei Tabellen gleichzeitig sortieren

zwei Tabellen gleichzeitig sortieren - Similar Threads - Tabellen sortieren

Tabellensortierung kollidiert mit Formel

Tabelle automatisch Sortieren

Pivot Tabelle im Tabellenformat sortieren

Audiodateien anhand einer Excel sortieren

Sortieren einer Tabelle

Navigationsleiste zwischen Tabellen sortieren?

Zeilen aus Tabelle mit bestimmten Wert in verschiedene Tabellenblätter sortieren