Danke dir, der Code funktioniert optimal.
Über den InputBox gebe ich das Datum ein. Bei einem gewünschten Datum stehen drei Zeilen zur Verfügung. Wenn ich das Datum eingebe, bekomme ich nur eine Zeile kopiert und eingefügt.
Bisher hat das funktioniert, weiß das Problem nicht...

Sub NEU()
 
Dim rng As Range
Dim DeinWert As Variant
Dim first As String
Dim mySheet As Worksheet
 
 
 
DeinWert = InputBox(prompt:="Geben Sie ein Datum:", Default:=Format("dd.mm.yyyy"))
 
 
ActiveWorkbook.Worksheets("Insgesamt").Range("A9:K100").Clear
For Each mySheet In Worksheets(Array("Tabelle1","Tabelle2"))

If DeinWert = "" Then Exit Sub
   DeinWert = CDate(DeinWert)
    
Set rng = mySheet.Range("G:G").Find(DeinWert) 'Hier bekomme ich die Fehlermeldung
If rng Is Nothing Then
Else
  first = rng.Address
    rng.EntireRow.Copy
    Worksheets("Insgesamt").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
End If
    
Next
 
 
End Sub