Bestimmte Anzahl Zeilen erfassen
26.10.2004 13:07:18
Jens
Ich habe mal eine Frage in die Runde zu folgender Problemstellung:
Ich habe eine sehr umfangreiche Tabelle mit Daten, die wir aus Internetanfragen bekommen.
Da stehen z.B. so Sachen drin wie: männlich oder weiblich, Alter, etc.
Ich möchte diese Daten nun sehr gerne auswerten.
Dazu interessieren mich jeweils immer die Werte der letzten 7, 30, 60 und 90 Zeilen (vom Ende an gezählt, da neue Anfragen per Parser dort automatisch eingefügt werden). Ich suche das ganze als Excelformel (VBA Makro hab ich schon und das ist leider zu inflexibel)
Weiterhin wäre es toll, wenn man einen Offset angeben könnte, der die Zeile, von der ab gezählt wird variierbar macht. So kann man dann auch Vergleiche mit einem selben Zeitraum der jeweiligen Vorwoche machen. Das mit dem Offset ist aber noch nicht so wichtig.
Was ich bisher habe möchte ich sehr gerne mit Euch teilen. Es sind einige Funktionen, die ich mit VBA geschrieben habe... Ich würde mich über Eure Anregungen, wie man an das Problem herangehen könnte super dankbar.
'Berechnet Report des gewünschten Zeitraums
Function getStatistic(ByRef timeframe As Integer, ByRef column As Integer, ByRef offset As Integer)
'Letzte Zeile ermitteln
letzteZeile = Sheets("Daten-Plattformen").Cells(Rows.count, 2).End(xlUp).row
letzteSpalte = Sheets("Daten-Plattformen").UsedRange.SpecialCells(xlCellTypeLastCell).column
'Durch Spalten laufen
For i = 2 To letzteSpalte
'Durch Zeilen laufen
For j = letzteZeile - timeframe + 1 To letzteZeile
result = result + Sheets("Daten-Plattformen").Cells(j, i)
temp = result
Next
result = 0
Sheets("Report-Plattformen").Cells(i, column) = temp
temp = 0
Next
End Function