Hallo ich habe folgendes Problem, Ich bin derzeit dabei im Job unsere alten Exceltabellen zu bearbeiten, welche in die Produktion rausgehen für mich zu vereinfachen.

Dabei bin ich aber auf ein Problem gestoßen, mit dem Makro was mir dabei helfen soll diese auf zu Bearbeiten.

Hier mal ein parr Daten zur Excel Datei und dem Problem selber

- 1 Datei

- Inhalt besteht 2 Mappen ("Mappe 1" Produktionsliste, "Mappe2" der Kommissionsschlüssel)

in der "Mappe 1" habe ich den Plan mit den einzelnen Größen der Gebinde.

In "Mappe 2" wird ebfenfalls die Anzahl der der Gebindemengen eingetragen und die Tournummer auf welche Reise das Produkt nacher gehen soll. Nun hat in der "Mappe 2" jedes Produkt, jeweils 6 Zeilen zu verfügung.

Ich habe mir eine Formel erzeugt, wo alle 6 Zeilen zusammen gerechnet werden und in "Mappe 1" zusammen gezählt werden. Damit man sehen kann "Ich muss von Produkt X soviele Kanister abfüllen" das klappt auch alles wunderbar.

Nun währe es natürlich ein ziemlicher zeitlicher Auffand, alle Zeilen mit dieser Formel per Hand zu verknüpfen und deshalb ich wollte mir ein Makro bauen (Siehe Code Schnippsel) um es mir zu vereinfachen.

Ich habe  nun das folgende Problem, das er mit nachdem ich das Makro ausgeführt habe und ich in der nächsten Zeile wieder das Makro ausführen, möchte er mir von der "Mappe 2" zwar wieder 6 zeilen nimmt aber nicht die nächsten aufeinander folgenden hier ein Beispiel.

Ich führe das Makro in der ersten Zeile aus er nimmt Zeile 1-6 aus "Mappe 2" ( alles gut soweit)

gehe ich aber in die nächste zeile mit Produkt nr 2 nimmt er mir aus der "Mappe 2" Zeile 2-7

Ich würde mich freuen wenn das Makro aber die zeile 8-13 nehmen würde und immer so weiter bis ich durch bin mit der Tabelle

Ich hoffe ich habe es irgendwie verständlich beschreiben können und jemand kann mir vlt helfen ich sage schon einmal Danke im vorraus

der Code Schnipsel

Sub Makro1()
'
' Makro1 Makro
' Abfüllung
'
' Tastenkombination: Strg+a
'
 ActiveCell.FormulaR1C1 = "=SUM(Kommissionsschlüssel!R23[-8]C[-8]:R[28]C[-8])"
    Range("L14").Select

End Sub