Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Ermittlung von Werten bis zum Zeit-Endpunkt

Gruppe

Vergleich

Problem

In Tabelle 2 sollen die Messwerte im Zeitbereich von A1 dieser Tabelle + 3 Minuten addiert und zusammen mit der Benennung in B1 ausgegeben werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub MessWert()
   Dim datStart As Date, datEnd As Date
   Dim dValue As Double
   Dim iRow As Integer
   iRow = 1
   With Worksheets("Tabelle2")
      Do Until .Cells(iRow, 1) >= Range("A1").Value
         iRow = iRow + 1
      Loop
      iRow = iRow - 1
      datStart = .Cells(iRow, 1)
      Do Until .Cells(iRow, 1) >= Range("A1").Value + _
         TimeSerial(0, 30, 0) Or IsEmpty(.Cells(iRow, 1))
         dValue = dValue + .Cells(iRow, 35).Value
         iRow = iRow + 1
      Loop
      If datStart = 0 Then
         MsgBox "Keine Werte gefunden!"
      Else
         MsgBox "Messwerte für Stoffklasse " & _
            Range("B1").Value & ":" & vbLf & dValue
      End If
   End With
End Sub