Habe schon einiges versucht, aber leider ohne Erfolg.
z.B. mit folgendem VBA-Code:
Dim Zeit As String
For Zeilen_Nr = 4 To letzte_belegte_Zeilen_Nr
Zeit = Sheets("Folgemessungen").Range("B" & Zeilen_Nr).Value("HH:MM")
If Zeit = "08:00" Then
Sheets("Folgemessungen").Range("F" & Zeilen_Nr).Value = _
Sheets("Folgemessungen").Range("A" & Zeilen_Nr).Value
End If
Next Zeilen_Nr