Ich möchte bitte ein Diagramm darstellen.
Die Zahlen steigen beginnend von 0,2 an bis 90,27. Ab diesem Wert fallen sie dann wieder bis auf 0,26 ab. Und von da an steigen sie wieder ... usw.
Feuchtezyklus 1 (0%, 10%, 20%, 30%, 40%, 50%, 60%, 70%, 80%, 90%) (ansteigender Zyklus: Sorption)(Blau)
Feuchtezyklus 2 (40%, 30%, 20%, 10%, 0%) (absteigender Zyklus: Desorption)(Grün)
usw.....
Hier den Code für Sortierung
-----------------------------------------------------------------------
Public Sub Feuchtezyklen()
Dim colZ As VBA.Collection
Dim rngList As Excel.Range
Dim i As Long, j As Long
Dim t As Boolean
Set colZ = New VBA.Collection
With Worksheets("Sheet1")
Set rngList = .Range(.Range("S36"), .Range("S36").End(xlDown))
.Range("Z7").Offset(, i - 1).Resize(colZ(i).Rows.Count).Value = colZ(i).Value
j = 1
t = rngList(1) <= rngList(2)
For i = 1 To rngList.Count - 1
If t Xor rngList(i) <= rngList(i + 1) Then
Call colZ.Add(.Range(rngList(j), rngList(i)))
t = Not t
j = i
End If
Next
If i > j Then
Call colZ.Add(.Range(rngList(j), rngList(i)))
End If
'Ausgabe: Beispiel
For i = 1 To colZ.Count
.Range("Z6").Offset(, i - 1).Value = "Zyklus " & i
Next
End With
End Sub
|