Makro Neue Zeile erfassen
06.10.2002 13:52:51
Tarius
Ich bin am Erstellen eines neuen Makros. Mit Hilfe dieser Seite hab ich den Anfang auch geschafft. Nun tauchen aber die Probleme auf und mit Aufzeichnen krieg ich es einfach nicht auf die Reihe. Im Makro soll folgendes ablaufen:
Der aktivierte Blattschutz soll aufgehoben werden, dann soll der Zellcursor in Spalte A in die erste leere Zelle springen und das aktuelle Datum einsetzen (Datumswert der sich nicht mehr verändert), dann springe in derselben Zeile nach Spalte B und kopiere und füge den Wert ein der direkt darüberliegenden Zelle (Text), dann gehe in derselben Zeile nach Spalte M bis O und kopiere die Formeln der 3 direkt darüberliegenden Zellen und füge sie ein (in den Zeilenwerten natürlich angepasst auf die neue Zeile), dann gehe in derselben Zeile nach Spalte C und aktiviere den Blattschutz ohne Kennwort.
Wäre sehr froh und dankbar, wenn mir da jemand helfen könnte.
Mein Code, den ich bis jetzt geschafft habe lautet:
Sub Erfassen()
ActiveSheet.Unprotect
Range("A1").Select
While ActiveCell.Text <> ""
ActiveCell.Offset(1, 0).Select
Wend
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Gruss Tarius