mit dem u.a.Makro (ist hier aus dem Forum) lass ich Daten filtern und in eine Zieltabelle kopieren.
Das Originaldatum (17.12.04), erscheint in der Zieltabelle (12/17/2004).
Wie kann ich das Ursprungsformat beibehalten?
Dim WS1 As Worksheet, WS2 As Worksheet
Dim datAnfang As Date
Dim datEnde As Date
Dim i, lZeile1, lZeile2
datAnfang = DateValue(InputBox("Anfangsdatum"))
datEnde = DateValue(InputBox("Enddatum"))
Set WS1 = Worksheets("Vorsorge")
Set WS2 = Worksheets("Datum")
lZeile1 = WS1.Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To lZeile1
If WS1.Cells(i, 12) >= datAnfang And WS1.Cells(i, 12) <= datEnde Then
lZeile2 = WS2.Cells(Rows.Count, 12).End(xlUp).Row
'Daten aus SpalteA bis SpalteL kopieren
Range(WS2.Cells(lZeile2 + 1, 1), WS2.Cells(lZeile2 + 1, 12)).Value = _
Range(WS1.Cells(i, 1), WS1.Cells(i, 12)).Value
End If
Next i
Vielen Dank für jeden Tipp
Gruß;Georg