Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
680to684
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
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Mittelwert und Standardabweichung per Makro
19.10.2005 08:47:16
Andreas
Guten Morgen!
Ich hoffe mir kann jemand bei folgendem Problem helfen.
Ich möchte in Excel einige Zellen markieren und mir
per Knopfdruck den Mittelwert und die Standardabweichung
berechnen lassen. Ich habe herausgefunden, dass
in VBA Mittelwert=AVERAGE ist und Standardabweichung=STDEVP.
Mein Problem ist wie verpacke ich das in ein Makro.
Ziel wäre:
Ich markiere die betreffenden Zellen
starte das Makro
es erscheint ein Fenster das mich auffordert die Zelle wohin der Mittelwert geschrieben wird zu wählen
ich wähle die Zelle und füge per Knopfdruck den Wert ein
genauso für die Standardabweichung...
Ich weiß nicht ob das so möglich ist, bzw wie groß der Aufwand ist.
Mir würde dies bei meiner Arbeit sehr nützlich sein.
Jeder Tipp würde mir sehr weiterhelfen. Danke.
Schöne Grüße
Andreas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mittelwert und Standardabweichung per Makro
19.10.2005 11:22:42
bst
Morgen Andreas,
versuch mal sowas ähnliches.
cu, Bernd
--
Option Explicit

Sub x()
   Dim src As Range, dst As Range
   
   Set src = Selection
   Set dst = Nothing
   On Error Resume Next
   Set dst = Application.InputBox("Wohin schreiben?", Type:=8)
   On Error GoTo 0
   If dst Is Nothing Then Exit Sub
   
   ' Variante 1 mit einer normalen Formel
   With dst
      .Formula = "=AVERAGE(" & src.Address & ")"
      .Formula = .Value
   End With
   
   With dst.Offset(0, 1)
      .Formula = "=STDEVP(" & src.Address & ")"
      .Formula = .Value
   End With
   
   ' Variante 2 mit WorkSheetFunction
   dst.Offset(1, 0).Value = Application.WorksheetFunction.Average(src)
   dst.Offset(1, 1).Value = Application.WorksheetFunction.StDevP(src)
End Sub

Anzeige
1000 Dank
19.10.2005 11:27:25
Andreas
Vielen vielen Dank das hilft mir sehr weiter.
Beste Grüße
Andreas

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige