VBA - Datum in Zeile suchen & darunter liegende Zelle befüllen.

[Dreas-wing]

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


  Mappe1.xlsm (Größe: 15,21 KB / Downloads: 5)

Besten Dank vorab und viele Grüße

[Steffl]

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