Thema: Ermittlung von Werten bis zum Zeit-Endpunkt

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Vergleich