Sortierung von Spalten ohne Select

Ein frohes neues Jahr!
Seit Q4 21 arbeite ich an einem Excel-Tool zum Monitoring (m)eines 12-wöchigen Therapieprogramms für computerspielabhängige Patienten. Die Sitzungen finden einmal wöchentlich statt, wobei der Wochentag von Staffel zu Staffel abweichen kann (mal montags, mal mittwochs ...). Um die Mediennutzungsdaten prozessgemäß abbilden zu können, habe ich mit meinen bescheidenen Kenntnissen eine Sortierfunktion der Wochentage (Spalten M - S) via Steuerelement eingebaut. Alles funktioniert soweit, aber gefühlt recht langsam. Mein Fragen an die VBA-Profis:
- Kann man das Sortiermakro und somit auch die Anweisungen des Steuerelementes verschlanken? Momentan sind es 5 (für jeden Wochentag eines mit Sortier-Key) ...
- Kann man das Sortiermakro ohne Select bauen? Mich nervt, dass nach Makro Ablauf die Spalten M - S markiert bleiben ...
Hier die datenschutzkonforme Datei zur Veranschaulichung: https://www.herber.de/bbs/user/150104.xlsm
Bin wie immer für jede Hilfe dankbar.
Daniel Jäger

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim strWoche As String: strWoche = "Mo,Di,Mi,Do,Fr,Sa,So," Dim tempSplit As Variant Application.ScreenUpdating = False tempSplit = Split(strWoche, ",") Call MeinSort(tempSplit(Range("D1") - 1) & "," & Replace(strWoche, tempSplit(Range("D1") - 1) & ",", "")) End Sub

Sub MeinSort(strSort As String) With ThisWorkbook.Worksheets("ZOE-Datenbank").Sort .SortFields.Clear .SortFields.Add Key:=Range("M2:S2"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=CStr(strSort), DataOption:=xlSortNormal .SetRange Range("M2:S1000") .Header = xlYes .MatchCase = False .Orientation = xlLeftToRight .Apply End With End Sub

Hi Daniel
Ja, ein tolles Projekt...
Mein Fehler, habe nicht gut aufgepasst. Hier eine neue Version:


Sub t()
Dim strWoche As String: strWoche = "Mo,Di,Mi,Do,Fr,Sa,So"
Dim varSplit As Variant, varWoche(6) As Variant, i As Integer
Application.ScreenUpdating = False
varSplit = Split(strWoche, ",")
For i = Range("D1") - 1 To Range("D1") + 5
varWoche(i - Range("D1") + 1) = varSplit(i Mod 7)
Next i
With ThisWorkbook.Worksheets("ZOE-Datenbank").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("M2:S2"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=Join(varWoche, ","), DataOption:=xlSortNormal
.SetRange Range("M2:S1000")
.Header = xlYes
.MatchCase = False
.Orientation = xlLeftToRight
.Apply
End With
End Sub

Hier wird kein klassisches Worksheet_Change Ereignis benutzt. Das Makro ist über das Steuerelement zugewiesen. Same same but different ;)
cu
Chris

Beliebteste Forumthreads (12 Monate)

Sortierung von Spalten ohne Select

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread