Makro zum Zeilen einfügen / löschen (speziell)
01.04.2016 08:47:32
Christian
ich habe eine Exceltabelle, die ich mit einem Passwort für den Benutzer sperren will. Jedoch will ich
über ein Makro das Einfügen und das Löschen von Zeilen ermöglichen.
Im Bereich A15:G15 - A45-G45 soll der Benutzer eine Zelle auswählen können und über den Button (Makro)
eine Zeile darüber (oder darunter, das ist mir egal) EINFÜGEN können. Soweit so leicht. Aber das
Problem stellt sich nun, da ich in den Zellen H15:L15 Formeln hinterlegt habe, die abhängig von Spalten
und Zeilen sind. Daher ist es wichtig, dass beim Einfügen einer Zeile IMMER die Formeln aus dem Bereich
H14:L14 bis zum Ende der Tabelle runterkopiert werden. (Damit der Zellenbezug immer für alle Formelnb
stimmt). Das bekomme ich leider nicht ganz hin.
Das gleiche gilt für das Löschen-Makro:
Im Bereich A15:G15 - A45-G45 soll der Benutzer eine Zelle auswählen können und über den Button (Makro)
eine Zeile darüber (oder darunter, das ist mir egal) LÖSCHEN können. Auch hier ist es wichtig, dass
beim LÖSCHEN einer Zeile IMMER die Formeln aus dem Bereich H14:L14 bis zum Ende der Tabelle
runterkopiert werden. (Damit der Zellenbezug immer für alle Formelnb stimmt). Das bekomme ich leider
nicht ganz hin.
Könnt ihr mir da helfen?
Verwendeter Code zum Einfügen:
Sub Zeilen_einfügen()
Application.ScreenUpdating = False
Selection.EntireRow.Insert
With Selection.EntireRow
.Offset(-1, 0).Resize(1).Copy
.PasteSpecial Paste:=xlPasteFormulas
End With
Application.ScreenUpdating = True
End Sub
Muster: https://www.herber.de/bbs/user/104700.xls