Makro Zeile(n) einfügen

[onki76]

Hallo zusammen,

ich habe eine alte Excel, wo man im Tab VL und VZ über einen Button Zeilen in einer Tabelle einfügen kann. Dieses Makro soll in eine andere Excel (Fahrtenbuch) integriert werden.

Das Problem ist, dass ich dieses Makro nicht in der Excel finden kann, um das in die andere Excel zu integrieren. Außerdem soll es die Formeln der Zellen, beim einfügen der Zeilen, entsprechend anpassen. Könnt ihr mir hier behilflich sein?

[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

[onki76]

Perfekt. Das funktioniert super. Vielen Dank.