Datum finden und Adresse ausgeben
05.10.2013 18:21:55
Martina
Ich möchte in meiner Tabelle ein Datum finden und die Adresse davon ausgeben. Hier mein Code:
Sub DatumSuchen ()
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Sheets("Tabelle1").Columns(3)
Set Zelle = Bereich.Find(Range("A1"), lookat:=xlWhole, LookIn:=xlFormulas)
If Zelle Is Nothing Then
MsgBox "Das Datum wurde nicht gefunden!"
Else
MsgBox "Das Datum " & Range("A1") & _
" befindet sich in Zelle " & Zelle.Address(False, False)
End If
End Sub
Leider funktionier der Code nur, solange ich das Datum von Hand in die Zellen schreibe. Die Daten kommen aber mit verschiedenen Funktionen aus anderen Zellen. Ich vermute mal, dass ich das Datum irgendwie mit "Clng" oder "Value2" umwandeln muss, habe aber keine Ahnung, wie ich vorgehen muss.
Vielen Dank für eure Hilfe.
Martina
Anzeige