Wert suchen in Tabelle
13.11.2014 10:07:22
Volker
ich suche mittels nachstehendem Code in Spalte A einen Wert (Datum).
Funktioniert auch soweit, allerdings nur bis zum 9.Tag. Wenn ich den 10. Tag suche bewegt sich nichts mehr. Ich verstehe das nicht.
Könnte mir jemand auf die Sprünge helfen?
Danke und Gruß
Volker
Private Sub CommandButton1_Click()
Dim rZelle As Range
If Me.TextBox1.Value "" Then
If IsDate(Me.TextBox1.Value) Then
With Worksheets("November").Range("A1:A35")
Set rZelle = .Find(CDate(Me.TextBox1.Value), LookIn:=xlValues, LookAt:=xlWhole)
If Not rZelle Is Nothing Then
.Range("A" & rZelle.Row).Select
End If
End With
End If
End If
End Sub
Anzeige