Servus,
wahrscheinlich ist mein Problem schon das ein oder andere Mal aufgetreten aber ich finde die Lösung dazu nicht.
Also meine Code ist der Folgende:
Private Sub CommandButton1_Click()
On Error Resume Next
Application.ScreenUpdating = False
Dim Datum1 As Double
Dim rng As Range
Dim rng1 As Range
Dim zeile1 As Long
Dim zeile2 As Long
Datum1 = CDate(Format$(TextBox1.Text, "dd.mm.yyyy hh:mm:ss"))
Worksheets("12-Sekunden").Select
Range("J2") = (Format$(TextBox1.Text, "dd.mm.yyyy hh:mm:ss"))
Range("J1") = Datum1
Datum1 = Round(Datum1, 4)
Set rng = Sheets("12-Sekunden").Columns("B:B").Find(what:=Datum1, LookAt:=xlWhole)
If rng Is Nothing Then
MsgBox TextBox1.Text & " nicht gefunden"
Unload Me
Else
zeile1 = rng.Row
End If
Debug.Print zeile1
Range("J3") = zeile
Was soll geschehen? Ich gebe in einer Textbox ein Datum ein, z.B. 09.11.2013 21:06:12, und es soll mir die Zeile ausgegeben werden. Als Zahlenwert wird 41857,8793 in Spalte B abgelegt und hier will ich jetzt mit Datum1 nach jener Zahl suchen. Finde tue ich allerdings nicht. Woran liegt es? Das ich vorher runde? Ist dies unzulässig oder sogar falsch?
Vielen Dank für jegliche Hilfe!