Es erzeugt in Spalte A (Ziel) ein Datum aus Text in Quelle.
Problem ist, dass der Autofilter für das Datum in Ziel z.B. bei größer als nicht funktioniert.
Vielleicht ist das Problem einfach zu lösen.
Martin
'Makro
Sub BeginTest()
z = 1
Set Ges = Sheets("Ziel")
Set SH = Sheets("Quelle")
For Each zelle In SH.Range("D1:D10")
txtL = SH.Range("A" & zelle.Row)
z = z + 1
With Ges
.Cells(z, 1).NumberFormat = "dd.mm.yyyy"
.Cells(z, 1) = Mid(txtL, 6, 10)
End With
Next zelle
Ges.Cells(1, 1) = "Datum"
End Sub