Viele Daten -> zusammenfassen

Computer: Software & Programmierung Office Software
1

Hallo, ich habe aus einer Industriesteuerung (SPS) Daten über einen Datenlogger mitgeschrieben. Im 2 Sekundentakt… über längere Zeit. Für mich als Programmierer ist es natürlich schön zu sehen was meine Regeliung macht.

Jetzt möchte mein Chef aber keine 16500 Zeilen auswerten… nach dem Motto „ich will abba“ möchte er 3 Minuten Mittelwerte… ich kenne die Funktion Mittelwert, aber die 16500 Zeilen bleiben…

Gibt es eine Möglichkeit ein neues Tabellenblatt zu erzeugen in dem ich nur jede x-te Zeile übernehme … wenn ich =Tabelle2MW!B2+30 schreibe, wird ja 30 zu dem Zellenwert addiert…!?

Wäre für eine Lösung dankbar!

2

Moin,

kannst du mit VBA abarbeiten:

Sub MW30()

Dim i As Integer
Dim Zeilemax As Integer

Dim tab1 As Worksheet
Dim tab2 As Worksheet

Set tab1 = Worksheets(„Tabelle1“)
Set tab2 = Worksheets(„Tabelle2“)

Zeilemax = tab1.UsedRange.Rows.Count
tab2.Cells(1, 1) = WorksheetFunction.Average(Range(tab1.Cells(1, 1), tab1.Cells(30, 1)))
For i = 2 To Zeilemax / 30
tab2.Cells(i, 1) = WorksheetFunction.Average(Range(tab1.Cells(((i - 1) * 30) + 1, 1), tab1.Cells(i * 30, 1)))

Next i

End Sub

Das Makro auf eine „Schaltfläche“ legen und es sollte funktionieren.

Gruß

slam

3

Ich kann mit VB6.0 umgehen… mit VBA in Excel habe ich noch nicht gearbeitet… aber da ich die Befehle kenne muß ich mich jetzt nur in die VBA Bedienung einkämpfen…

Danke

4

Ich kann mit VB6.0 umgehen… mit VBA in Excel habe ich noch
nicht gearbeitet… aber da ich die Befehle kenne muß ich mich
jetzt nur in die VBA Bedienung einkämpfen…

Danke

Moin,

das ist ja nicht schwer, einfach den VBA-Editor aufmachen, ein neues Modul einfügen, den geposteten Code reinkopieren und eventuell an deine Namen der Tabellenblätter anpassen. Den Editor schließen und das Makro einer Schaltfläche zuweisen, fertig.

Gruß

slam