AW: Uhrzeit suchen
01.04.2008 10:32:00
Erich
Hallo Tino,
eine Möglichkeit:
Sub SucheZeit()
Dim SuchA As Range, SucheZeit As Date, varF As Variant
SucheZeit = CDate("00:16") + 0.000000000001
varF = Application.Match(CDbl(SucheZeit), Range("A1:A1500"), 1) ' mit VERGLEICH
If IsError(varF) Then
MsgBox "Zeit wurde nicht gefunden!"
Else
Set SuchA = Cells(varF, 1)
MsgBox SuchA & " gefunden in Zeile " & varF
End If
End Sub
Eine Uhrzeit ist in Excel eine Fließkommazahl, die je nach Entstehung (Formel) mehr oder weniger genau der Uhrzeit entspricht.
Durch die Addition von 0.000000000001 wird ein Suchwert auch dann gefunden,
wenn der Wert in der Liste etws abweicht.
Im Beispiel funktioniert es allerdings auch ohne diese Addition.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort