Nur geänderte Zellen auswerten. Min Max
Michel
ich bins schon wieder.
Ich habe eine Spalte mit Werten.
Grafik:
Spalte G
0
2,00014472
4,998553276
8,00057888
10,9989872
14,0010128
16,99942207
20,00144768
22,99985504
25,99826431
29,00028992
31,99869728
35,00072479
37,99913025
41,00115585
43,99956512
47,00159073
50
50,99826431
50
47,99985504
45,99971008
43,99956512
41,99942017
39,99927521
37,99913025
35,99898911
33,99884415
31,99869728
29,99855232
27,99840927
25,99826431
24,00173569
22,50072289
20,99971008
18,99956512
16,99942207
14,99927616
12,99913216
10,9989872
8,998842239
6,998697758
4,998553276
2,998408556
0,998263896
0,499131948
0,499131948
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
Es handelt sich um 100 Zeilen die immer mal wieder anders gefüllt werden. D.h bei diesem Beispiel sind 45 Werte reingeschrieben. Bei einem anderen mal kann es aber sein das von dieser Spalte 80 oder auch mal alle 100 Zellen mit einem Wert gefüllt sind.
Ich möchte hier nun eine Min Max Abfrage realisieren. Bis jetzt hab ich es so hinbekommen.
Public Sub MinMax()
Dim MaxValue As Double, MinValue As Double
MaxValue = WorksheetFunction.Max(Range("G26:G126"))
MinValue = WorksheetFunction.Min(Range("G26:G126"))
Sheets("Auswertung").Range("G17") = MaxValue
Sheets("Auswertung").Range("H17") = MinValue
End Sub
Der Maxwert wird mir einwandfrei angezeigt. Problem ist aber, dass der Min Wert ja hier logischerweise 0 ist. Problem ist nun, dass ich aber nur die Zellen auswerten dürfte, die auch gefüllt sind oder in der sich die Werte geändert haben. Damit ich als min Wert die 0,499 rausbekomme.
Könnt ihr mir bitte helfen.
Vielen Dank schonmal
Gruß Michel
Anzeige