AW: Berechnung nur auf angezeigte Spalten
04.02.2010 21:03:15
Josef
Hallo Stephan,
das geht nur per VBA bzw.UDF.
Dazu musst du folgenden Code in ein allgemeines Modul kopieren.
Die Anwendung in der Tabelle ist analog zu TEILERGEBNIS()
Da das Aus/Ein-blenden von Spalten keine Berechnung auslöst, musst du mit F9 die Berechnung manuell auslösen.
Tabelle2
| Formeln der Tabelle |
| Zelle | Formel | | J1 | =STEILERGEBNIS(9;D1:I1) |
|
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Tabelle2| Formeln der Tabelle |
| Zelle | Formel | | J1 | =STEILERGEBNIS(9;D1:I1) |
|
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
' **********************************************************************
' Modul: Modul3 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Public Function STEILERGEBNIS(Funktion As Integer, Bereich As Range) As Double
Dim rng As Range, r As Range
Application.Volatile
For Each r In Bereich
If r.ColumnWidth > 0 Then
If rng Is Nothing Then
Set rng = r
Else
Set rng = Union(rng, r)
End If
End If
Next
With Application
Select Case Funktion
Case 1
STEILERGEBNIS = .Average(rng)
Case 2
STEILERGEBNIS = .Count(rng)
Case 3
STEILERGEBNIS = .CountA(rng)
Case 4
STEILERGEBNIS = .Max(rng)
Case 5
STEILERGEBNIS = .Min(rng)
Case 6
STEILERGEBNIS = .Product(rng)
Case 7
STEILERGEBNIS = .StDev(rng)
Case 8
STEILERGEBNIS = .StDevP(rng)
Case 9
STEILERGEBNIS = .Sum(rng)
Case 10
STEILERGEBNIS = .Var(rng)
Case 11
STEILERGEBNIS = .VarP(rng)
End Select
End With
End Function
Gruß Sepp