Clever-Excel-Forum

Liebe Schwarmintelligenz,

für unsere Produktionsplanung wäre es hilfreich, wenn automatische eine leere Zeile eingefügt wird - immer dann, wenn die Produktionskapazität pro Woche von 64.800 (Zelle Q7) erreicht wird.

Entscheidend dafür ist die Summe der Gesamtminuten (Spalte P). Sprich wir würden immer neue Aufträge (Zeilenbefüllung) eintragen und sobald das Limit erreicht wird, wird eine leere Zeile erstellt und der Auftrag der dazu geführt hat, in die Zeile unter der Leerzeile verschoben.

Hat hier jemand eine Idee?

Danke im Voraus =)

Hallo

in ein Modul:

Code:
Sub Leer()

    Dim TB As Worksheet, LR As Long, i As Long, Sp As Integer, Ziel As Range

    Dim Z1 As Integer, LastZ As Long

    Set TB = Sheets("Tabelle1")

    Set Ziel = TB.Range("Q7")

    Z1 = 8 'Erste Zeile

    Sp = 16 'Spalte P

    LastZ = Z1

    LR = TB.Cells(TB.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte

    i = Z1

    Do Until i > LR

        If WorksheetFunction.Sum(TB.Range(TB.Cells(LastZ, Sp), TB.Cells(i, Sp))) > Ziel Then

            TB.Rows(i).Insert

            LastZ = i + 1

            LR = LR + 1

            i = i + 1

        End If

        i = i + 1

    Loop

End Sub

LG UweD

Luke

UweD