Wie kann ich eine ganze Zeile in ein anderes Blatt kopieren, wenn diese Zeile das heutige Datum enthält?

Question

Ich richte einige Zahlungspläne ein. Eine Zeile enthält normalerweise 2 bis 4 verschiedene Daten zusammen mit Kundeninformationen. Ich möchte jede Zeile, die das heutige Datum enthält, von Sheet1 nach Sheet2 kopieren.

Vielen Dank für jede Hilfe und lassen Sie mich wissen, wenn Sie zusätzliche Informationen benötigen.

edit: Hier sind einige Dinge, die nicht funktioniert:

mit erweiterten Filter von Sheet2

List Range: Sheet1!$1:$1048576 
Criteria Range: =today() 
Copy To: $a$1 

auch

List Range: Sheet1!$1:$1048576 
Criteria Range: =a1 //with a1 containing the formula =today() 
Copy To: $b$1 

Answer 1

Die folgenden sollte funktionieren.

Sub copyIfTodaysDate() 

    Dim todaysDate As Date 
    Dim rngData As Range 
    Dim rngRow As Range 
    Dim rngCell As Range 
    Dim counter As Integer 

    todaysDate = Date 
    counter = 1 

    Set rngData = Worksheets("Table1").UsedRange 

    For Each rngRow In rngData.Rows 
     For Each rngCell In rngRow.Cells 
      If rngCell.Value = todaysDate Then 
       rngRow.Copy Worksheets("Table2").Rows(counter).Columns(1) 
       counter = counter + 1 
       Exit For 
      End If 
     Next 
    Next 

End Sub