Makro Zeile(n) einfügen

[UweD]

Hallo

das sind Excel-4.0-Makros (auch XLM- Makros genannt) und wurden vor VBA verwendet, funktionieren bis heute in Excel, sind aber nicht im VBA- Editor sichtbar!

Dein Button ist mit einer benannten Zelle verknüpft, die auf dem verborgenen Blatt Makro1 liegt.

Diese benannte Zelle ist der Einstiegspunkt des alten XLM-Makros.
Da liegen dann untereinander Formeln ( Schritte ), die weiter ausgeführt werden.

Theoretisch könntest du das Makroblatt in deine neue Datei kopieren und dann den Button wieder mit der entsprechenden Zelle verknüpfen.

Tiefer will ich aber nicht mehr schauen, das ist Wirklich Uralt- Programmierung

LG UweD


- - - - - 

Edit...
Ich würde in der neuen Datei wie folgt vorgehen

- Deine Summenformeln sind sowieso noch falsch (zu kurze Bereiche)
- Füge eine leere Zeile über Summen ein
- Ändere deine Formeln auf den Bereich inkl. dieser neuen Zeile  (=SUMME(K7:K20))

- Nimm dieses Makro und weise es dem Button zu

Code:

Sub Zeilen_anfügen()
    Dim i As Integer, TB As Worksheet, LR As Integer
   
    Set TB = Sheets("Fahrtenbuch")
   
    LR = TB.Cells(TB.Rows.Count, "K").End(xlUp).Row 'letzte Zeile der Spalte
   
    i = InputBox("Anzahl Zeilen, die eingefügt werden sollen", "Zeilen anfügen", 1)
    If i > 0 Then
        Rows(LR - 3).Resize(i).Insert
        Rows(LR - 4).Copy Rows(LR - 3).Resize(i)
    Else
        MsgBox "Abbruch"
    End If
End Sub