Ich benötige eure Hilfe.

Hallo ich hoffe ihr könnt mir helfen. Es ist wirklich wichtig.
Für mein Studium muss ich folgende Aufgabe lösen:
Mit Hilfe eines VBA-Makros soll für einen auf der Tabelle markierten, einspaltigen Bereich das Maximum, das Minimum und der Median (der mittlere Wert bei einer aufsteigenden Sortierung) gekennzeichnet werden. Dabei soll eine vorbereitete function Wert genutzt werden, die den n-ten Wert des Vektors nach einer aufsteigenden Sortierung zurückgibt!
Die unten aufgeführte Mappe zeigt meine bisherige Arbeit. Maximum und Minimum funktionieren schon. Jetzt fehlt noch die Berechnung, Markierung und Formatierung des Medians. Dafür müssen wir die vorbereitete function Wert verwenden.
Ich habe die vorgegebenen Angaben dazu in Modul1 eingefügt.
Meiner Meinung nach müsste der richtige Median bei den angegebenen Zahlen 10 ergeben.
Leider weiß ich nicht richtig, wie ich Modul1 jetzt verwenden kann (wahrscheinlich ist es aber nicht schwierig?).
Ich hoffe ihr könnt mir irgendwie helfen.
Falls noch etwas unklar ist, so könnt ihr mir gerne Fragen stellen.
Vielen Dank.
Grüße John
https://www.herber.de/bbs/user/58192.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo John,
so sieht bei mir jetzt der Code der UF1 aus:


Option Explicit
Private Sub CommandButton1_Click()
Dim dblM As Double, lngZ As Long
With UserForm2
If CheckBox1.Value Then
'Makro formatiert Maximum einer markierten Spalte fett
dblM = Application.max(Selection)
lngZ = Application.Match(dblM, Selection, 0)
' Formatierung je nach Wahl des Kontrollkästchens
If .CheckBox1.Value Then _
Selection.Cells(lngZ).Font.Bold = True
If .CheckBox2.Value Then
If .OptionButton1.Value Then
Selection.Cells(lngZ).Font.Color = vbGreen
ElseIf .OptionButton2.Value Then
Selection.Cells(lngZ).Font.Color = vbRed
End If
End If
End If
If CheckBox2.Value Then
'Makro formatiert Minimum einer markierten Spalte fett
dblM = Application.min(Selection)
lngZ = Application.Match(dblM, Selection, 0)
' Formatierung je nach Wahl des Kontrollkästchens
If .CheckBox1.Value Then _
Selection.Cells(lngZ).Font.Bold = True
If .CheckBox2.Value Then
If .OptionButton1.Value Then
Selection.Cells(lngZ).Font.Color = vbGreen
ElseIf .OptionButton2.Value Then _
Selection.Cells(lngZ).Font.Color = vbRed
End If
End If
End If
If CheckBox3.Value Then
'Makro formatiert Median einer markierten Spalte fett
dblM = Wert(Selection.Count / 2, Selection.Count)
' Den Median bekommt man auch so:
'        dblM = Application.Median(Selection)
lngZ = Application.Match(dblM, Selection, 0)
' Formatierung je nach Wahl des Kontrollkästchens
If .CheckBox1.Value Then _
Selection.Cells(lngZ).Font.Bold = True
If .CheckBox2.Value Then
If .OptionButton1.Value Then
Selection.Cells(lngZ).Font.Color = vbGreen
ElseIf .OptionButton2.Value Then _
Selection.Cells(lngZ).Font.Color = vbRed
End If
End If
End If
End With
End Sub
Private Sub CommandButton2_Click()
UserForm2.Show
End Sub

Zur Aufgabenstellung und den Vorgaben wäre noch Einiges zu sagen.
- Statt mit Single arbeitet man besser mit Double
- Zeilen-(und Spalten-)variablen sollten mit Long statt Integer deklariert werden.
- Was, wenn Max oder Min in mehreren Zellen angenommen werden? (extrem: wenn alle Werte gleich sind)
- Was, wenn der Median kein Wert der Tabelle ist, sondern der Mittelwert der beiden mittleren Werte? (bei gerader Werteanzahl)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ich benötige eure Hilfe.

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread