Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Leerzeile sofern Kapazität erreicht
#1
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 =)


Angehängte Dateien Thumbnail(s)
   
Antwortento top
#2
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
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste