suchen und Kopieren mit VBA

[mpeterjena]

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

[Crazy Tom]

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

[mpeterjena]

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