würde gerne das folgende Makro so erweitern, dass nicht nur die Abfrage kommt ob eine Zeile eingefügt werden soll, sondern das man die Anzahl vorgeben kann. Das Einfügen selbst von mehreren Zeilen ist nicht das Problem, sondern, dass es wie in dem Makro mit einer Zeile auch die Formeln übernimmt.
Leider habe ich nach mehreren Fehlversuchen immer noch keine Idee, wie?
Vielleich könnt ihr mir weiterhelfen.
Vielen Dank
Mfg
M. Reinders
Private Sub CommandButton1_Click()
Dim aw
aw = MsgBox("Soll eine Zeile eingefügt werden?", vbYesNoCancel + vbExclamation)
If aw = vbYes Then
ActiveSheet.Unprotect Password:=""
Rows(ActiveCell.Row).Select
Selection.Insert Shift:=xlDown
On Error GoTo Errorhandler
Selection.FillDown
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
ActiveSheet.Protect UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, _
AllowFiltering:=True, AllowUsingPivotTables:=True, Password:=""
ActiveSheet.EnableOutlining = True
ActiveSheet.Range ("L")
Errorhandler: Exit Sub
Else 'Abbrechen
Cancel = True
End If
End Sub