Tipps & Tricks
15.09.2002, 14:15 Uhr
Berechnung unterschiedlicher Bereiche mittels Makro
Ich möchte gern mittels eines Makros von einer bestimmten Zahlenreihe (z.B. A1:A10 oder B6:B50) das Maximum, Minimum und Mittelwert errechnet haben und die Ergebnisse in verschiedenen Zellen ausgeben. Wie kann ich dieses Problem lösen?
Erstellen Sie das folgende Makro in einem Modul der entsprechenden Arbeitsmappe
Starten Sie nun das Makro. Sie werden als Erstes aufgefordert, den Bereich zu markieren, den Sie berechnen möchten.
Mit einem Klick auf OK wird der Bereich berechnet und Sie müssen nun angeben, wo die Ausgabe stattfinden soll. Tippen sie die Zelladresse der ersten Zelle ein und klicken Sie dann auf OK
Die ermittelten Werte werden ab der angegebenen Zelle (hier C1) eingetragen
---------------------------------
Makro zum Kopieren
(Alle "" müssen unbedingt durch
Anführungszeichen ersetzt werden)
---------------------------------
Sub MinMaxMittel()
Dim Bereich As Range
Dim Max, Min, Mit As Variant
Dim Ausgabe As String
On Error Resume Next
Set Bereich = Application.InputBox _
(Prompt:="Markieren Sie den Zellbereich " & _
"der berechnet werden soll:", Type:=8)
Max = WorksheetFunction.Max(Bereich)
Min = WorksheetFunction.Min(Bereich)
Mit = WorksheetFunction.Average(Bereich)
Ausgabe = InputBox _
("Geben Sie die erste Ausgabezelle an:")
If Ausgabe = "" Then
Exit Sub
End If
Range(Ausgabe).Select
ActiveCell.Value = Max
ActiveCell.Offset(0, 1).Value = "Maximum"
ActiveCell.Offset(1, 0).Value = Min
ActiveCell.Offset(1, 1).Value = "Minimum"
ActiveCell.Offset(2, 0).Value = Mit
ActiveCell.Offset(2, 1).Value = "Mittelwert"
End Sub
---------------------------------
Kommentare
Es sind keine Kommentare vorhanden.
