Automatische Mittelwertsbildung bei gleichem Datum
06.01.2009 23:25:00
Elmar
im Rahmen meiner Diplomarbeit muss ich Unmengen an gleichen Datensätzen ausarbeiten. Es handelt sich um Preisangaben, wobei es zu jedem Tag mehrere Preisangaben gibt. Ich möchte nun, dass zu jedem Tag automatisch der Mittelwert gebildet wird und dieser dann am rechten Rand ausgegeben wird.
Allerdings hänge ich in meinen Entwürfen nun Böse fest und komme absolut nicht mehr weiter.
Sub test1() ' test1 Makro ' Makro am 06.01.2009 von Emla aufgezeichnet Dim i As Integer Dim n As Integer Dim j As Integer Dim zähler1 As Integer Dim Datum1 As String Dim zähler2 As Integer Dim Bereich n = Cells(Rows.Count, 1).End(xlUp).Row For i = 3 To n If Cells(i, 1).Value = Cells(i + 1, 1).Value Then Datum1 = Cells(i, 1).Value 'vermerkt das Datum zähler1 = i 'deklariert den Anfang der gleichen Tage For j = i + 1 To n If Cells(j, 1).Value = Datum1 Then zähler2 = j + 1 'deklariert das Ende der gleichen Tage Else zähler2 = j End If Bereich = Range(Cells(zähler1, 11), Cells(zähler2, 11)) Next j Range(Cells(zähler1, 12)).Formula = "=Average(" & Bereich & ")" Cells(zähler1, 15).Value = Cells(zähler1, 1).Value End If Next i End Sub
unter https://www.herber.de/bbs/user/58141.xls
habe ich mal ein kleines Beispiel der Daten wobei die Preise sonst in der Spalte K stehen und in der Spalte N ausgeben werden.
Es wäre wirklich wunderbar, wenn jemand einen Rat hätte. Wenn ich dies alles manuell erledigen müsste, wäre ich noch am Ende meiner Tage am Werk.