Clever-Excel-Forum

Guten Morgen,

ich habe folgendes Problem ich habe ein Tabellenblatt wo ich verschiedene Aufzeichnungen mache. Ich möchte nun in einem Bereich nach dem aktuellen Datum suchen was auch soweit funktioniert.

hier mein Code:

Code:
Sub DatumFinden()

   Dim rng As Range

   Dim lngDatum As Long

   lngDatum = CLng(Date)

   For Each rng In Range("A5:I46")

      If IsDate(rng) Then

         If CLng(rng) = lngDatum Then

            rng.Select

            MsgBox rng.Value

            MsgBox "Das Datum " & Date & " ist im Bereich A5:I46 gefunden"

            Exit Sub

         End If

      End If

   Next

End Sub

was allerdings nicht funktioniert das er mir aus der slektieren Zeile die Zelle I in ein neues Tabellenblatt in eine neue Zelle kopiert.

Würde mich über eine Unterstützung freuen.

Mit besten Grüßen

Michael

Hi

das könnte so gehen

PHP-Code:
Sub DatumFinden()
   Dim rng As Range
   Dim lngDatum As Long
   lngDatum = CLng(Date)
   For Each rng In Range("A5:I46")
      If IsDate(rng) Then
         If CLng(rng) = lngDatum Then
            rng.Select
            MsgBox rng.Value
            MsgBox "Das Datum " & Date & " ist im Bereich A5:I46 gefunden"
            Cells(rng.Row, 9).Copy Sheets("Tabelle2").Range("A1")
            Exit Sub
         End If
      End If
   Next
End Sub 

MfG Tom

Hallo Tom,

das war genau das was ich gesucht habe, teilweise sehe ich vor lauter Bäumen den Wald nicht mehr

Mit besten Grüßen

Michael

mpeterjena

Crazy Tom

mpeterjena