Min- und Max-Wert horizontal VBA
18.05.2020 08:46:51
Lars
ich lese in diesem Forum schon länger mit und stehe nun vor einem Problem, welches ich bisher leider nicht lösen konnte.
Es geht darum, den Mittelwert, Minimalwert bzw. Maximalwert einer Zeile (horizontal) auszugeben ohne hierbei ausgeblendete Spalten zu berücksichtigen. Mit dem Mittelwert klappt es wunderbar. Beim Min- bzw. Maximalwert ist es so, dass diese ohne Berücksichtigung ausgeblendeter Spalten ermittelt werden. Sprich es werden Minimal- und Maximalwerte der kompletten Range berücksichtigt.
Meine Funktion sieht wie folgt aus:
Function teilergebnisS(was As Integer, rng_ As Range) As Double
Application.Volatile
Dim Zelle As Range
For Each Zelle In rng_
If IsNumeric(Zelle) Then
If Zelle.Value "" Then
Select Case was
Case 1
'mittelwert
If Zelle.EntireColumn.Hidden = False Then
anz = anz + 1
mittelw = mittelw + Zelle
teilergebnisS = mittelw / anz
End If
Case 2
'min-wert
If Zelle.EntireColumn.Hidden = False Then
teilergebnisS = Application.WorksheetFunction.Min(rng_)
End If
Case 3
'max-wert
If Zelle.EntireColumn.Hidden = False Then
teilergebnisS = Application.WorksheetFunction.Max(rng_)
End If
End Select
End If
End If
Next
End Function
Vielleicht findet sich ja hier ein Gedenkanstoß. Freue mich auf Eure Antworten.