Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo ich habe diesen Code um ein Datum aus einem bestimmten Bereich auszulesen und den Wert der unter dem Datum steht an einem definierten Ort auszugeben. Leider funktioniert das nur für eine Spalte bei der das Datum nicht als Tabelle formatiert ist. Da ich das Datum aus einer Tabelle auslesen möchte ist dies schlecht. Des weiteren soll nicht nur der erste Wert unter dem Datum kopiert und wo anders eingetragen werden, sondern das Datum selbst und eine fest definierte Anzahl von Feldern unter dem Datum die durch ein Eingabefenster bestimmt werden. Wäre super froh wenn ihr einen Ansatz habt um das ganze umzusetzen.

Option Explicit

Public Sub Datum_Suchen()
Dim rngFind As Range
Dim strDate As String

strDate = InputBox("Datum:", , Date)
If strDate = "" Then Exit Sub

Set rngFind = Sheets("Spreads").Range("58:58").Find(DateValue(strDate), LookIn:= _
xlFormulas) 
  If Not rngFind Is Nothing Then
    rngFind.Offset(1, 0).Copy
    Sheets("Spreads2").Range("C95:C107").PasteSpecial     
Application.CutCopyMode = False
  Else
    MsgBox "Das Datum wurde nicht gefunden!"
  End If

End Sub