Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datenbereich in ein Array

Datenbereich in ein Array
11.07.2003 11:10:36
Michael
Hallo Gemeinde.
Ich möchte eine benutzerdef. Funktion erstellen.
Es soll ein Bereich markiert werden. Aus diesem Bereich soll z.B. der Mittelwert gebildet und 100 dazu addiert werden.
Wie kann man den Bereich in ein Array umwandeln, damit ich die einzelnen Zellen des Bereichs weiterverarbeiten kann ?
Vorab Danke!
michael

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenbereich in ein Array
11.07.2003 11:21:38
sergiesam
Hi,
hier habe ich 2 Varianten....

Function MeinMittelwert(Bereich As Range) As Double
Dim elem As Range, x As Double, anzahl As Integer
anzahl = 0: x = 0
For Each elem In Bereich.Cells
If IsNumeric(elem) And Not IsEmpty(elem) Then
x = x + elem
anzahl = anzahl + 1
End If
Next elem
MeinMittelwert = (x / anzahl) + 100
End Function


Function MeinMittelwert2(Bereich As Range) As Double
MeinMittelwert2 = Application.WorksheetFunction.Average(Bereich) + 100
End Function

Viel Spaß,
sam

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige