ich hoffe Ihr könnt mir helfen.
Ich möchte in der Spalte "H" in der Tabelle "Quelle" nach einem Wert suchen. In diesem Fall hat die Spalte unterschiedliche Datumswerte (TT.MM.JJJJ) und ich möchte z.B. alle Werte mit ".06.2018". Den Wert ".06.2018" wählt man in einem anderen Sheet("Startseite") aus. Ist ein Wert gefunden, soll die entsprechende ganze Zeile kopiert und in der Tabelle "Ziel" gespeichert werden.
Sub DatenAufbereiten()
Datum = Sheets("Startseite").Range("G2").Value
Sheets("Quelle").Select
Dim zelle As Range, zeile As Long
For Each zelle In Range("H:H")
If InStr(1, zelle, Datum) Then
Sheets("Quelle").Rows(zeile).Copy
Sheets("Ziel").Select
Sheets("Ziel").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next
End Sub
Irgendwie funktioniert das ganze nicht so? Bitte um eure Hilfe. Danke