Laufzeitfehler -2147417848 (80010108)

[Dietmar Henning]

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

[Egon12]

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

[Dietmar Henning]

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