per Autofilter Datumswerte kopieren
14.07.2005 10:49:16
Peter
in Spalte „B“ stehen Datumswerte und Text. Ich möchte alle Datumswerte
nach Spalte „A“ kopieren.
Das beiliegende Makro funktioniert – ist jedoch sehr langsam.
Kann man die Sache mittels des „Autofilters“ schneller erledigen?
Danke im voraus
Peter
Sub DatumKopieren()
Set Ziel = Workbooks("Ziel.xls").Worksheets("Tmp")
lastRow = IIf(Ziel.Range("B65536") <> "", 65536, Ziel.Range("B65536").End(xlUp).Row)
Set rngA = Range("B1:B" & lastRow)
For Each rng In rngA
If IsDate(rng) Then Cells(rng.Row, 1) = rng.Value
Next rng
End Sub