Mittelwert berechnen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub MittelwertAusText() Dim rCells As Range Dim iA Dim iB For Each rCells In Selection 'Debug.Print Application.WorksheetFunction.Find("/", rCells.Value) If IsNumeric(rCells.Value) Then rCells.Value = rCells.Value * 1 Else iA = VBA.Left(rCells.Value, Application.WorksheetFunction.Find("/", rCells.Value) - 1) * _ 1 iB = VBA.Mid(rCells.Value, Application.WorksheetFunction.Find("/", rCells.Value) + 1, _ 99) * 1 rCells.Value = Application.WorksheetFunction.Average(iA, iB) End If Next rCells End Sub

Sub MittelwertAusText() Dim rCells As Range Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart 'Punkt durch Komma ersetzt Selection.NumberFormat = "0.00" 'hier die Kommastellen anpassen For Each rCells In Selection If IsNumeric(rCells.Value) Then If Not IsEmpty(rCells) Then rCells.Value = rCells.Value * 1 Else rCells.Value = Application.WorksheetFunction.Average(VBA.Left(rCells.Value, Application. _ WorksheetFunction.Find("/", rCells.Value) - 1) * 1, VBA.Mid(rCells.Value, Application.WorksheetFunction.Find("/", rCells.Value) + 1, 99) * 1) End If Next rCells End Sub

…das hängt stark vom Stundenplan (Zeitfonds des Lehrgangs), Qualität/Wissen des Lehrers und Können/Wissen der anderen Teilnehmer ab, Klaus!
Vieles, was aus Empirie „geboren“ ist, wie zB Application.Match statt [Application.]WorksheetFunction.Match oder VBA.Left statt nur Left*, wird dort sicher nicht vermittelt (wohl auch nicht bei Fortgeschrittenen-Kursen, die meist ohnehin nicht wirklich zustandekommen). Dafür sind dann Foren (da kommt's sehr darauf an, wer gerade anwesend ist und antworten will!) und besonders ihre Archive gut geeignet. Allerdings wirst du da auch nicht alles° finden. Internationales Agieren vergrößert deine Chancen!
Was die Autodidaktik betrifft — da kommt's doch wohl sehr auf die Selbstorganisation und das Vorwissen an! Wer pgmieren mit VBA lernt, hat zwar den Vorteil, den der Basic-Kern der Sprache bildet (für andere mag das ein Nachteil sein, aber es lernt sich leichter), aber den generellen Nachteil, dass er die PgmierLogik (inkl ihrer Fachausdrücke!) erst erlernen muss. Und darauf sind auch Anfängerkurse jeder Pgmiersprache idR ausgerichtet. Beherrschst du diese Logik bereits, macht ein Anfängerkurs eh nicht viel Sinn.
* Auch das ist eine vbFkt, die nur Bestandteil einer Anweisung („Befehl“) sein kann.
° Bspw wirst du in dt-sprachigen Foren kaum eine voll praxistaugliche (automatische) VBA-Methode zum Feststellen des gezeigten Formats einer Zelle, also inkl möglicher BedingtFormatierung, finden, obwohl es sie gibt. So etwas lernt man in Lehrgängen eher nicht.
Gruß Luc :-?

For Each rCells In Selection ' 'Punkt durch Komma ersetzt Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Next rCells 'Eventuell die 2te Schlaufe sparen

Beliebteste Forumthreads (12 Monate)

	E	F
1	Mdg innen 3 mm
2	19,12	19,20
3	18,71	18,82
4	18,62	18,75
5	18,69	18,84
6	18,62	18,76
7	18,52	18,64
8	19,06	19,22
9	19,38	19,43
10	18,67	18,81
11
12	Mittelwert E2	19,16
13	Mittelwert E3	18,77
14	Mittelwert E4	18,69
15	Mittelwert E5	18,77
16	Mittelwert E6	18,69
17	Mittelwert E7	18,58
18	Mittelwert E8	19,14
19	Mittelwert E9	19,41
20	Mittelwert E10	18,74

verwendete Formeln
Zelle	Formel	Bereich
F12	=MITTELWERT($E2:$F2)
F13	=MITTELWERT($E3:$F3)
F14	=MITTELWERT($E4:$F4)
F15	=MITTELWERT($E5:$F5)
F16	=MITTELWERT($E6:$F6)
F17	=MITTELWERT($E7:$F7)
F18	=MITTELWERT($E8:$F8)
F19	=MITTELWERT($E9:$F9)
F20	=MITTELWERT($E10:$F10)

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread