Clever-Excel-Forum

Hallo Zusammen,
ich hoffe es geht euch und eurer Familie gut.
Ich habe ein kleines Problem mit einer Excel-Datei die sich im Anhng befindet.
Vielleicht könnt Ihr mir da weiterhelfen.
Bei einer größeren Anzahl von Sektionen (schwarze Linie bis schwarze Linie) passiert es manchmal, dass die Excel-Datei abstürzt.(siehe Anhang Bild Fehler)

Kann man die Makro Einfügen einer Zeile + Formel und Einfügen von einer neuen Sektion vereinfachen, damit evtl. die Excel-Datei stabiler läuft.
Kann man da was machen, das dies nicht mehr passieren kann?

Danke für die Hilfe.

mfg

Dietmar

Hallo,

ich würde es eingentlich anders anstellen, aber du wolltest es nur stabiler. Das wäre dann so:

Code:
Sub Sektion_Einfuegen()

    Dim merkZelle As Range

    Dim bereich As Range

    Dim c As Range

    Application.ScreenUpdating = False

    ActiveSheet.Outline.ShowLevels RowLevels:=2

    Set merkZelle = ActiveCell

    If ActiveCell.Borders(xlEdgeTop).LineStyle <> 1 Then

        MsgBox "Bitte an der unteren dicken Linie einer Sektion!"

        Exit Sub

    End If

    If ActiveCell.Column <> 1 Then

        MsgBox "Bitte richtige Zeile auswählen in Spalte A!"

        Exit Sub

    End If

    Sheets("Vorlage").Range("A5:AF15").Copy

    Sheets("Kalkulation").Cells(merkZelle.Row, merkZelle.Column).Insert Shift:=xlDown

    Tabelle1.Range(ActiveCell.Offset(1, 20), ActiveCell.Offset(10, 20)).Select

    For Each c In Selection.Cells

        With c

            .Formula = Replace(c.Formula, "(P", "($P$")

            .Formula = Replace(c.Formula, "-Q", "-$Q$")

            .Formula = Replace(c.Formula, "/I", "/$I$")

        End With

    Next c

    merkZelle.Activate  'wiederaufsetzZelle

    Application.CutCopyMode = False

End Sub

Gruß Uwe

Hallo Uwe,

das geht ja jetzt mega schnell, wenn man eine Sektion Einfügen möchte.

Danke dir.

Kann man das auch machen, bei der Makro Sub Zeile_Einfuegen() die auch in der Excel vorhanden ist?

Du sagtest auch, dass du es anders anstellen würdest um den Laufzeitfehler zu verhindern.
Kannst du mir sagen, wie du ihn verhindern würdest.

Danke für deine Hilfe.

mfg

Dietmar

Dietmar Henning

Egon12

Dietmar Henning