Kopiervorlage per Makro einfügen
19.08.2008 10:35:00
Marco
ich habe ein kleines Problem und brauche Eure Hilfe!
Es geht um eine Tabelle, wo Veranstaltungen zeitcronologisch erfasst werden. Jeder neu hinzukommende Veranstaltung bekommt 2 Spalten zur Verfügung, welche hinsichtlich Formeln, Formatierungen usw. aus einer Kopiervorlage an die entsprechende Stelle eingefügt wird. In der Kopiervorlage sind viele geschützte Zellen (mit Formeln).
Zusätzlich ist festzuhalten, dass die Tabelle einen aktiven Blattschutz hat (aber alles erlaubt, was möglich ist) und freigegeben ist.
Nun bräuchte ich ein Makro, welches per Tastenkombination (z.B. Strg. Alt Z damit es nicht aus ersehen passiert) ausgeführt wird und folgendermaßen vorgeht:
1. Der Blattschutz müsste aufgehoben werden (ohne Passwort)
Hier habe ich den Befehl ActiveSheet.Protect UserInterfaceOnly:=True gefunden. Wenn vorher der "freigegebene Modus" ausgestellt werden muss (um den Blattschutz zu deaktivieren), machen wir dies vorher manuell. Vielleicht kann man ja eine Meldung ausgeben: "Bitte Freigabemodus ausschalten".
2. Im Bereich C1:D150 bzw. Spalte C und D ist die Kopiervorlage.
3. Diese sollte in den beiden rechten Spalten, neben der aktuellen Zelle (die Stelle wo das Makro per Tastenkombination gestartet wird) eingefügt werden. D.h., wenn ich z.B. in der Zelle K5 bin (oder K1 ... K120) und das Makro ausführe, fügt er zwei leere Spalten rechts ein (L und M) und kopiert die Kopiervorlage C1:D150 in den Bereich L1:M150. Es darf natürlich nichts überschrieben werden :-)
4. Der Blattschutz wird wieder aktiviert.
5. Die Arbeitsmappe wird wieder freigegeben. Kann auch wieder manuell passieren.
Würde mich sehr freuen, wenn mir jemand helfen könnte!
Danke!
Viele Grüße Marco