Clever-Excel-Forum

Hallo beisammen,

ich hoffe jemand hat hierfür eine Lösung. Ich möchte das heutige Datum in einer Zeile finden und darunter den entsprechenden Tages werte ein tragen. Das Datum finde ich jedoch weiß ich nicht, wie ich die gewünsche Zelle darunter auswählen kann.

Das heist: Die Daten stehen in Zeile A1:X1. Da da sheutige Datum in Spalte D1 zufinden ist (Beispiel) möchte ich den Wert XXX in Zelle D3 eintragen lassen.

Kennt jemand einen Lösungsweg?
Was ich schon habe:

Dim zelles As Range
Dim bereichs As Range
Dim datum As Date
datum = Range("A2")
Set bereichs = Sheets("tabelle1").Range("A1:o1")
Set zelles = bereichs.Find(what:=datum, lookat:=xlWhole, LookIn:=xlValues)
If zelles Is Nothing Then
MsgBox "Datum nicht gefunden"
Else
MsgBox "Datum befindt sich in Zelle" & zelles.Address
zelles.Select
End If

[attachment=7741]

Besten Dank vorab und viele Grüße

Hallo,

ich habe mir deine Datei nicht heruntergeladen daher nur der Eintrag mit "XXXXX"

Code:
Dim zelles As Range

 Dim bereichs As Range

 Dim datum As Date

 datum = Range("A2")

 Set bereichs = Sheets("tabelle1").Range("A1:o1")

 Set zelles = bereichs.Find(what:=datum, lookat:=xlWhole, LookIn:=xlValues)

 If zelles Is Nothing Then

 MsgBox "Datum nicht gefunden"

 Else

 MsgBox "Datum befindt sich in Zelle" & zelles.Address

 zelles.Offset(2, 0) = "XXXXX" 

 zelles.Select 'nicht unbedingt nötig

Dreas-wing

Steffl