18.04.2017, 11:33 (Dieser Beitrag wurde zuletzt bearbeitet: 18.04.2017, 11:33 von McArthur1.)
Hallo,
@Gast123, danke für das Dokument. So wie du es aufgestellt hast, ist es genauso wie Ich es möchte. Allerdings habe Ich versucht die Zeilen bzw. Spalten zu ändern. Das funktioniert allerdings nicht so ganz :D. Könntest du mir vielleicht noch sagen, wie Ich die Zeilen die sortiert werden sollen ändern kann?
@WillWissen
hier wäre ein Ausschnitt der Tabelle (man kann halt nur die PLZ sehen und nicht die ganze Tabelle)
Und die Spalte Y ändert sich durchgehend. Dabei möchte Ich ebenso, dass die gesamte Tabelle nach Y sortiert wird.
Vielleicht kann man mein Problem jetzt einfacher erkennen.
Ich freue mich über jede Hilfe :)
Hallo Bosko Biati,
danke für deine Hilfe :D
ist es allerdings nicht so, dass man bei Pivot Tabellen nicht autmoatisch sortieren kann? Des wegen würden diese eher wegfallen...
danke für die Tabelle, ich habe die Daten übernommen, Spalten verschoben und das Makro angepasst.
Bei mir funktioniert es, wenn man zwei Makros austauscht. Im Modul1 und im Tabellenblatt Tabelle1
Viel Erfolg bei der Arbeit, ich hoffe ich konnte sie dir damit erleichtern. Den Rest müssen Kollegen beareiten.
mfg Gast 123
Code:
'diesen Code in "Tabelle1" austauschen
Private Sub Worksheet_Change(ByVal Target As Range)
'Sortieren ab Zeile 3, und nur bei Spalte AA = 27
If Target.Row > 2 And Target.Column = 27 Then _
Call Sortieren
End Sub
'diesen Code in "Modul1" austauschen
Sub Sortieren()
Dim lz As Long
Application.ScreenUpdating = False
With ActiveWorkbook.Worksheets("Tabelle1")
lz = .Range("Y3").End(xlDown).Row
With .Sort
'zuerst zwei Sortierschlüssel festlegen, hier AA + Y
.SortFields.Clear 'Spalte AA und Y sortieren, AA hat Vorrang
.SortFields.Add Key:=Range("AA3:AA" & lz), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("Y3:Y" & lz), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
'Eigentliche Sotier Routıne
.SetRange Range("Y3:AB" & lz)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub
zur Erklaerung für den Frager: mein Programm sucht vor dem Sortieren immer die letzte Zelle in der Spalte Y, PLZ
In dieser Spalte dürfen keine Lücken sein (leere Zellen) Ob es wie 58 Zeilen sind, oder 1000 ist völlig wurscht. Sortiert wird immer der ganze Bereich, egal wieviele Orte da drin stehen. Das Makro passt sich automatisch an.
Hallo Gast123,
also Ich habe die 2 Makros in meine Tabelle übernommen, allerdings funktioniert es jetzt irgendwie nicht mehr... :D
Könntest du mir vielleicht, dass angepasste Dokument mal schicken, damit Ich sehen kann, ob bzw. wo Ich einen Fehler gemacht habe?
Danke im Voraus :)
Hallo, Danke für deine Geduld :D
Bei mir steht jetzt die Anzahl in Y (siehe Tabelle oben) bei dir in Spalte AA. Ich habs wieder probiert anzupassen, aber irgendwie krieg Ich es gerade nicht hin.. :/ :D
Also,
Ich hab jetzt noch mal etwas rumprobiert, allerdings komm Ich immer noch nicht drauf. Könntest du mir vielleicht nochmal genau erklären, was Ich ändern muss um die Zellen anzupassen?
Danke Im Voraus
Viele Grüße
Sorry, das war mein Fehler, nicht aufgepasst beim einschieben neuer Spalten, und voll übersehen das du für Orte ja drei Spalten hast !!
Nun ja, aller guten Dinge sind drei, hoffen wir das es jetzt klappt. Noch mal ein korrigierter Code.
Im ersten Code Teil aendert sich nur die Target Spalte von 27 auf 25. Der Rest bleibt gleich!
Im zweiten Code Teil aendern sich alle Sortier Adressen, am besten kompett austauschen.
mfg Gast 123
Code:
'diesen Code in "Tabelle1" austauschen
Private Sub Worksheet_Change(ByVal Target As Range)
'Sortieren ab Zeile 3, und nur bei Spalte AA = 27
If Target.Row > 2 And Target.Column = 25 Then _
Call Sortieren
End Sub
'diesen Code in "Modul1" austauschen
Sub Sortieren()
Dim lz As Long
Application.ScreenUpdating = False
With ActiveWorkbook.Worksheets("Tabelle1")
lz = .Range("U3").End(xlDown).Row
With .Sort
'zuerst zwei Sortierschlüssel festlegen, hier Y + U
.SortFields.Clear 'Spalte Y und U sortieren, Y hat Vorrang
.SortFields.Add Key:=Range("Y3:Y" & lz), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("U3:U" & lz), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
'Eigentliche Sotier Routıne
.SetRange Range("U3:Z" & lz)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub
Folgende(r) 1 Nutzer sagt Danke an Gast 123 für diesen Beitrag:1 Nutzer sagt Danke an Gast 123 für diesen Beitrag 28 • McArthur1
:D![[-]](https://www.clever-excel-forum.de/images/collapse.png)