Sub Makro1()
Dim colA, i As Long
colA = Intersect(ActiveSheet.UsedRange, Activesheet.Columns(1)).Resize(, 2)
For i = 1 To UBound(colA)
If colA(i, 2) < 150 Then
MsgBox " Nach " & colA(i, 1) & " Sekunden lag der Messwert erstmals unter 150" ' & colA(i, 2)
Exit For
Next
End Sub
wie man so ein Makro aufruft, suchst du dir aber selbst raus.
|