Hallo zusammen,
ich habe ein Marko das mir den Mittelwert, min, max, high, low berechnet. Funktioniert auch wunderbar (Danke nighty).
Der mittelwert wird momentan in spalte ac ausgegeben egal was in spalte a steht.
nun bräuchte ich das wenn in spalte a "GFM 1" steht den mittelwert ausgegeben in spalte ac
wenn in spalte a "GFM 2" steht den mittelwert ausgegeben in spalte ad.
wie könnte das gehen ?
Option Explicit
Sub MinMaxMitLowHigh()
Dim iArray() As Variant, bereichArray() As Variant
Dim kleinerWert() As Variant, mittelWert() As Variant, groesserWert() As Variant
Dim LowWert() As Variant, HighWert() As Variant
Dim Lzeile As Long, zaehler As Long, zaehler1 As Long, zaehler2 As Long
Dim Auswahl As Variant
Set Auswahl = Worksheets("Data")
Auswahl.Activate
With ActiveSheet
Lzeile = .Range("H" & Rows.Count).End(xlUp).Row
.Range("AC2:AG" & Lzeile) = ""
kleinerWert() = Range("AE2:AE" & Lzeile)
groesserWert() = Range("AC2:AC" & Lzeile)
mittelWert() = Range("AD2:AD" & Lzeile)
LowWert() = Range("AF2:AF" & Lzeile)
HighWert() = Range("AG2:AG" & Lzeile)
iArray() = Range("H2:H" & Lzeile)
bereichArray() = Range("I2:AB" & Lzeile)
For zaehler = 1 To UBound(iArray())
If iArray(zaehler, 1) > 0 Then
kleinerWert(zaehler, 1) = iArray(zaehler, 1)
groesserWert(zaehler, 1) = iArray(zaehler, 1)
For zaehler1 = 1 To 20
If bereichArray(zaehler, zaehler1) > 0 Then
If kleinerWert(zaehler, 1) > bereichArray(zaehler, zaehler1) Then
kleinerWert(zaehler, 1) = bereichArray(zaehler, zaehler1)
End If
If groesserWert(zaehler, 1) < bereichArray(zaehler, zaehler1) Then
groesserWert(zaehler, 1) = bereichArray(zaehler, zaehler1)
End If
mittelWert(zaehler, 1) = mittelWert(zaehler, 1) + bereichArray(zaehler, zaehler1)
zaehler2 = zaehler2 + 1
End If
Next zaehler1
mittelWert(zaehler, 1) = mittelWert(zaehler, 1) / zaehler2
LowWert(zaehler, 1) = mittelWert(zaehler, 1) - kleinerWert(zaehler, 1)
HighWert(zaehler, 1) = groesserWert(zaehler, 1) - mittelWert(zaehler, 1)
End If
zaehler2 = 0
Next zaehler
.Range("AC2:AC" & Lzeile) = mittelWert()
.Range("AD2:AD" & Lzeile) = kleinerWert()
.Range("AE2:AE" & Lzeile) = groesserWert()
.Range("AF2:AF" & Lzeile) = LowWert()
.Range("AG2:AG" & Lzeile) = HighWert()
End With
Sheets("Data").Cells(1, 29) = "average"
Sheets("Data").Cells(1, 30) = "min"
Sheets("Data").Cells(1, 31) = "max"
Sheets("Data").Cells(1, 32) = "low"
Sheets("Data").Cells(1, 33) = "high"
Worksheets("Report").Activate
'Call sort_by_date
End Sub
