Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Formel

VBA Formel
Horst
Liebe Excel-Freunde!
Wie muss ich folgende Function umschreiben, damit der für die Formelberechnung erforderliche Parameter Mittelwert des Bereichs (Range) automatisch errechnet wird und das Formelergebnis durch Eingabe "SEMIVOLA(BEREICH)" erfolgt und nicht wie bisher durch "SEMIVOLA(BEREICH;MITTELWERT)?
Public Function semivola(Bereich As Range, Mittelwert As Double) As Double
Dim Anzahl%, varianz As Double, varianzsumme As Double, zelle
With Application.WorksheetFunction
Anzahl = .Count(Bereich)
varianzsumme = 0
For Each zelle In Bereich
If .IsNumber(zelle) = True Then
If zelle
Besten Dank für Eure Vorschläge!
Gruß, Horst

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Formel
04.01.2012 00:49:22
Josef

Hallo Horst,
das geht aber auch ohne UDF.
{=(SUMME(WENN((A1:A20<MITTELWERT(A1:A20))*(ISTZAHL(A1:A20));((A1:A20-MITTELWERT(A1:A20))^2))) /ANZAHL(A1:A20)) ^0,5}
Public Function semivola(Bereich As Range) As Double
  Dim Anzahl%, varianz As Double, varianzsumme As Double
  Dim zelle As Range, Mittelwert As Double
  
  With Application.WorksheetFunction
    
    Anzahl = .Count(Bereich)
    Mittelwert = .Average(Bereich)
    
    For Each zelle In Bereich
      If .IsNumber(zelle) = True Then
        If zelle < Mittelwert Then
          varianz = (zelle - Mittelwert) ^ 2
          varianzsumme = varianzsumme + varianz
        End If
      End If
    Next
    semivola = (varianzsumme / Anzahl) ^ 0.5
  End With
End Function



« Gruß Sepp »

Anzeige
AW: VBA Formel
04.01.2012 13:11:36
Horst
Besten Dank für Eure Vorschläge, beide Varianten funktionieren großartig!
AW: VBA Formel
04.01.2012 22:10:07
Horst
Einen Punkt hätte ich noch: Wenn nun angenommen nur jene Zeilen der Spalte A in die Berechnung einfließen sollen, bei denen in Spalte B ein bestimmter Buchstabe steht, wie würde dann die unten angegebene Formel aussehen?
{=(SUMME(WENN((A1:A20<MITTELWERT(A1:A20))*(ISTZAHL(A1:A20));((A1:A20-MITTELWERT(A1:A20))^2))) /ANZAHL(A1:A20)) ^0,5}
Besten Dank vorab!
AW: VBA Formel
04.01.2012 22:14:51
Josef

Hallo Horst,
einfach die Bedingung mit rein nehmen.
{=(SUMME(WENN((A1:A20<MITTELWERT(A1:A20))*(ISTZAHL(A1:A20))*(B1:B20="X"); ((A1:A20-MITTELWERT(A1:A20))^2))) /ANZAHL(A1:A20)) ^0,5}

« Gruß Sepp »

Anzeige
AW: VBA Formel
05.01.2012 23:22:58
Horst
Hallo Sepp,
ich glaube, damit das Ergebnis der Formel stimmt, müsste auch bei der Mittelwert- und Anzahl-Funktion die Bedingung (B1:B20="X") berücksichtigt werden, oder geschieht das ohnehin bereits durch die Bedingung in der Wenn-Abfrage? Ich komme nämlich mit der unten angegebenen VBA-Funktion (über jene Zeilen von A berechnet, bei denen in B ein X steht) und mit der obigen Formel auf unterschiedliche Ergebnisse.
lg, Horst
Hier nochmal die VBA-Funktion als Alternative zur Formel (leider bei großen .xls sehr langsam):
Public Function semivola(Bereich As Range) As Double
Dim Anzahl%, varianzsumme As Double, zelle As Range, Mittelwert As Double
With Application.WorksheetFunction
Anzahl = .Count(Bereich)
Mittelwert = .Average(Bereich)
For Each zelle In Bereich
If .IsNumber(zelle) = True Then
If zelle

Anzeige
AW: VBA Formel
05.01.2012 23:45:05
Josef

Hallo Horst,
da magst du Recht haben.
{=(SUMME(WENN((A1:A20<MITTELWERT(A1:A20))*(ISTZAHL(A1:A20))*(B1:B20="X"); ((A1:A20-MITTELWERT(WENN(B1:B20="x";A1:A20)))^2)))/ANZAHL(WENN(B1:B20="X";A1:A20))) ^0,5}
Allerdings wirst du mit der UDF immer ein anderes Ergebnis erhalten, weil dort die Zusatzbedingungen nicht erfasst werden.

« Gruß Sepp »

Anzeige
AW: VBA Formel
06.01.2012 12:58:33
Horst
Servus Sepp,
Ergebnis stimmt! Besten Dank nochmal!
Gruß, Horst
AW: VBA Formel
04.01.2012 00:49:28
Reinhard
Moin Horst,
ungetestet vielleicht so: 
Public Function semivola(Bereich As Range) As Double
Dim Anzahl%, varianzsumme As Double, zelle As Range, Mittelwert As Double
With Application.WorksheetFunction
Anzahl = .Count(Bereich)
Mittelwert = .Average(Bereich)
For Each zelle In Bereich
If .IsNumber(zelle) = True Then
If zelle

Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige