Sortierung markierter Bereich

Hallo zusammen,
ich habe letzte Woche Thread eröffnet und wurde sehr gut geholfen. Leider wurde er schon archiviert und da ich neu hier bin und nichts gefunden habe diesen wieder zu aktivieren, habe ich diesen eröffnet.
Mir hat ei Forumteilnehmer folgenden Code als Hilfestellung gegeben:


Sub markieren_zum_sortieren()
Dim zelle As Range
ActiveSheet.Unprotect
Set zelle = [A:A].Find(What:=ActiveSheet.Name & "*", After:=Cells(ActiveCell.Row, 1), LookIn:=xlFormulas, SearchDirection:=xlPrevious)
If Not zelle Is Nothing Then
Select Case ActiveCell.Row
Case zelle.Row + 1 To zelle.Row + 10  '--wenn die Zeile zwischen zelle.Row + 1 und zelle.Row + 10
'--"Wareneingangsbereich zum sortieren ausgewaehlt"
Cells(zelle.Row + 1, 3).Resize(10, 9).Select
Case zelle.Row + 13 To zelle.Row + 27
'--"Resteverwaltung zum sortieren ausgewaehlt"
Cells(zelle.Row + 13, 1).Resize(15, 21).Select
End Select
End If
ActiveSheet.Protect
End Sub

Ich habe einiges probiert aber ich komme nicht auf die Lösung.
Die Bereiche die sortiert werden sollen werden ja schon richtig angesprochen. Der erste Bereich soll nach Spalte E und der 2. Bereich nach Spalte D sortiert werden.
Habe alleine leider keine Lösung gefunden, die Makroaufzeichnung einzubinden. Die Bereiche sind ja bereits richtig ausgewählt.
Danke für eure Hilfe.
Gruß Nico

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Yal,
genau ich habe einen Vorschlag von einem Forumteilnehmer bekommen und wollte versuchen das Makro so umzubauen, doch leider habe ich es nicht hinbekommen. Die Tabelle ist hier im letzten Archiv zum reinschauen (Steuerelemente Beitrag von mir). Ich möchte den Wareneingang absteigend nach Spalte E im markierten Bereich sortieren und bei der Resteverwaltung nach Spalte D absteigend. Das soll immer passieren, wenn ein Blatt geöffnet wird. Es sollen nachher mehrere Blätter sein und mehrere Bereiche pro Blatt. Die Bereiche sind immer gleich groß und gleich aufgebaut.
Kannst du auf die Tabelle noch zugreifen die im Archiv ist? Da wurde bereits vieles geändert aber der aufbau ist gleich.
Meine jetzige Datei ist riesen groß muss mal schauen warum das kann ich mir garnicht erklären keine hmm. Es sind viele Buttons weniger (statt Ausbuchen Button nur noch als Text was die gewünschte Aktion ausführt)
https://www.herber.de/bbs/user/146229.xlsm
Gruß Nico

Sub markieren_zum_sortieren() Dim zelle As Range ActiveSheet.Unprotect Set zelle = [A:A].Find(What:=ActiveSheet.Name & "*", After:=Cells(ActiveCell.Row, 1), LookIn:=xlFormulas, SearchDirection:=xlPrevious) If Not zelle Is Nothing Then Select Case ActiveCell.Row Case zelle.Row + 1 To zelle.Row + 10 '--"Wareneingangsbereich zum sortieren ausgewaehlt" Cells(zelle.Row + 1, 3).Resize(10, 9).Select Selection.Sort Key1:=Selection.Cells(1, 3), order1:=xlAscending '--sortieren nach 3.Spalte im selectiertem Bereich Case zelle.Row + 13 To zelle.Row + 27 '--"Resteverwaltung zum sortieren ausgewaehlt" Cells(zelle.Row + 13, 1).Resize(15, 21).Select Selection.Sort Key1:=Selection.Cells(1, 4), order1:=xlAscending '--sortieren nach 4.Spalte im selectiertem Bereich End Select End If ActiveSheet.Protect End Sub

Sub markieren_zum_sortieren() Dim zelle As Range Dim Wareneingang As Range Dim Resteverwaltung As Range ActiveSheet.Unprotect Set zelle = [A:A].Find(What:=ActiveSheet.Name & "*", After:=Cells(ActiveCell.Row, 1), LookIn:=xlFormulas, SearchDirection:=xlPrevious) If Not zelle Is Nothing Then Select Case ActiveCell.Row Case zelle.Row + 1 To zelle.Row + 10 '--wenn die Zeile zwischen zelle.Row + 1 und zelle.Row + 10 '--"Wareneingangsbereich zum sortieren ausgewaehlt" Set Wareneingang = Cells(zelle.Row + 1, 3).Resize(10, 9) Wareneingang.Select Wareneingang.Sort Key1:=Wareneingang.Columns(4), Order1:=xlDescending, Header:=xlYes 'Wareneingang.Sort.SortFields.Add Key:=Range("E"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal Case zelle.Row + 13 To zelle.Row + 27 '--"Resteverwaltung zum sortieren ausgewaehlt" Set Resteverwaltung = Cells(zelle.Row + 13, 1).Resize(15, 21).Select End Select

Beliebteste Forumthreads (12 Monate)

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread