Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Uhrzeit per Textbox suchen

Betrifft: Uhrzeit per Textbox suchen von: Werner
Geschrieben am: 10.10.2020 21:25:22

Hallo,


ich habe folgendes Problem:

es gibt eine Tabelle mit Uhrzeiten im Format hh:mm


nun möchte ich per Textbox in UF suchen ob die eingegebene Zeit in der Textbox in der Tabelle vorhanden ist.


Eines weiß ich, es muss lt. einer Messagebox daran liegen dass ich nach 05:20 suche aber die Tabelle 0,222222222 zurück gibt.


Schon mal danke für eure Hilfe


Werner

Betrifft: AW: Uhrzeit per Textbox suchen
von: Werner
Geschrieben am: 10.10.2020 21:37:06

Hier noch der Code den ich zur Suche benutze:

sSuchbegriff = TextAbfahrt.Value



With Sheets("Abfahrt").Columns("B:B")
Set rZelle = .Find(What:=Format(CDate(sSuchbegriff), "hh:mm"), lookat:=xlWhole, LookIn:=xlValues, _
SearchOrder:=xlByRows)

If Not rZelle Is Nothing Then


MsgBox "Zeit vorhanden"

Else
MsgBox "nicht vorhanden"
GoTo ende


End If
End With

Betrifft: AW: Uhrzeit per Textbox suchen
von: Beverly
Geschrieben am: 11.10.2020 14:27:51

Hi Werner,

versuche es mal anstelle von Format(CDate(sSuchbegriff), "hh:mm") mit CDbl(sSuchbegriff)



GrußformelBeverly's Excel - Inn