Code verbessern
23.07.2004 14:35:05
Wolfgang
hab folgendes Makro, dass seine Funktion voll erfüllt:
Sub daten_übernehmen()
Application.ScreenUpdating = False
datum = ActiveCell.Value
zeile = ActiveCell.Row
bereichende = ActiveSheet.Range("D65536").End(xlUp).Row
For Each w In Range(Cells(4, 5), Cells(bereichende, 5))
With ActiveSheet.Range("D:D")
Set i = .Find(datum, LookAt:=xlPart)
zeile = i.Row
ActiveSheet.Rows(zeile & ":" & zeile).Select
Selection.Copy
End With
Worksheets("Abgeschlossen").Activate
letzte = [D65536].End(xlUp).Row
ActiveSheet.Rows(letzte + 1 & ":" & letzte + 1).Select
Paste
Worksheets("Übersicht").Activate
Selection.Delete
Next w
Application.ScreenUpdating = True
End Sub
Jetzt hab ich das ganze eigentlich über .Find regeln wollen und nicht das jeder Wert durchlaufen wird. Jedoch weiß ich nicht, wie es geht, damit wirklich jeder Wert rausgesucht wird und in das andere Blatt verschoben wird.
Hoffe mal meine Ausführung sind verständlich und ihr könnt/wollt mir helfen den Code besser zu gestalten. Denn wie man sieht hab ich noch viel zu lernen :-)
Gruss aus dem (noch) sonnigen Bayern
wolfgang