Private Sub CommandButton1_Click()
Dim gefunden As Range
Set gefunden = Range("c4:gd7").Find(what:=Range("b1").Value, lookat:=xlWhole)
If Not gefunden Is Nothing Then gefunden.Offset(1, 0).Select
'die "Not gefunden Is Nothing"-Konstruktion ist nötig
'damit kein fehler kommt wenn kein treffer.
End Sub
Sub DatumSuchen()
Dim rngFind As Range
Dim strDate As String
strDate = InputBox("Datum:", , Date)
If strDate = "" Then Exit Sub
Set rngFind = Columns("A:C").Find(DateValue(strDate), LookIn:=xlFormulas)
If Not rngFind Is Nothing Then
rngFind.Offset(1, 0).Activate
Else
MsgBox "Das Datum wurde nicht gefunden!"
End If
End Sub