VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aus einer Reihe von 10-minütigen Messungen h-Mittelwerte auslesen

Gruppe

Funktion

Bereich

MITTELWERT

Thema

Aus einer Reihe von 10-minütigen Messungen h-Mittelwerte auslesen

Problem

Wie kann ich aus einer Reihe von 10-minütigen Messungen die jeweiligen stündlichen Mittelwerte auslesen lassen?

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




StandardModule: basMain

Sub Schaltfläche1_BeiKlick()
   Dim iSpiel As Integer, iStart As Integer
   Dim iAktuell As Integer, iAnzahl As Integer
   Columns("A:B").ClearContents
   iAnzahl = Application.CountA(Columns(4))
   iStart = 1
   iAktuell = 2
   Do Until iStart > iAnzahl - 1
      iSpiel = iSpiel + 1
      Cells(iSpiel, 1) = Cells(iStart, 4)
      Cells(iSpiel, 2) = Cells(iAktuell, 4)
      If iAktuell = iAnzahl Then
         iStart = iStart + 1
         iAktuell = iStart + 1
      Else
         iAktuell = iAktuell + 1
      End If
   Loop
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und MITTELWERT