VBA zum sortieren
24.09.2024 20:05:38
Heinz H
Bin nicht sehr gut in VBA, darum meine Frage.
Möchte meinen täglichen Stromverbrauch analysieren.
In meiner Tabelle habe ich in einer Spalte die Uhrzeit, und in der anderen Spalte den dazugehörigen Stromverbrauch.
ZB. in A4:A291 die Uhrzeit im 5 Minuten Takt. in B4:B291 den zugehörigen Stromverbrauch.
Nun möchte ich sortieren zu welcher Uhrzeit wird der meiste Strom verbraucht, und wieder nach Uhrzeit sortieren.
Habe zwei Makros mit Recorder aufgezeichnet, die auch funktionieren.
Nur bei 31 Tagen bräuchte ich 62 Makros.
Meine Frage und bitte an euch, wie würde das einfacher funktionieren ?
Danke
schöne Grüße
Heinz
Option Explicit
Sub Sortieren_A()
ActiveWorkbook.Worksheets("Leistungsdiagramm").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Leistungsdiagramm").Sort.SortFields.Add2 Key:= _
Range("A4:A291"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Leistungsdiagramm").Sort
.SetRange Range("A4:B291")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub Sortieren_B()
ActiveWorkbook.Worksheets("Leistungsdiagramm").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Leistungsdiagramm").Sort.SortFields.Add2 Key:= _
Range("B4:B291"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Leistungsdiagramm").Sort
.SetRange Range("A4:B291")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
https://www.herber.de/bbs/user/172377.xlsm
Anzeige
