Gesperrte Zellen kopieren und einfügen
10.09.2013 12:35:32
Hugo
in unserem Büro benötigen wir eine Art Abrechnungsformular, wo es für jede Kostenstelle einen eingenen Bereich gibt. Die Zellen mit den Formeln sollen geschützte werden, das mit dem Blattschutz bewerkstelligt werden soll.
Problem:
Bei einer Kostenstelle können mehrere Einträge erfolgen.
Unsere Mitarbeiter sollen die Möglichkeit erhalten, dass sie die Zeilen kopieren können und sie einfügen können.
Habe beim Blattschutz eingeben, dass Sie Zeilen einfügen können!
Sobald dieser Vorgang erfolgen soll erscheint folgende Meldung:
Die Zelle oder das Diagramm, das Sie versuchen zu ändern, ist geschützt und somit schreibgeschützt.
Beispiel: https://www.herber.de/bbs/user/87223.zip
Habe das hier gefunden. Diese Makro macht zwar das was ich wollte, aber noch nicht ganz.
Sub Schaltfläche20_Klicken()
Dim Zeile As Long
ActiveSheet.Unprotect "Passwort"
Zeile = Range("A:A").Find(what:="").Row - 1
Rows(Zeile).Copy
Rows(Zeile).Insert
ActiveSheet.Protect "Passwort"
End
Sub
Die Makro fügt mir zwar die Zeile ein, aber es ist immer die erste Zeile.
Ich möchte, dass es mir die ausgewählte Zeile kopiert und sie dann oberhalb der kopierten Zeile _
_
_
einfügt.
Hat jemand eine Idee wie ich diese Makro anpassen könnte.
Danke für die Hilfe
Huffi