ich steh mir mal wieder selbst im Weg :-(
Das Problem: Damit mein Analyse-Code losläuft, ist es zwingend erforderlich, dass in B2:B7 der Sollzustand (siehe unten) herrscht.
Ab und zu fehlt eine Zeile. Das kriegt die Datenbank nicht anders gebacken, wenn alle Folgewerte dieser Zeile = 0 sind.
Spalte B ist bereits aufsteigend sortiert.
Soll:
Spalte B
1
1
2
2
3
3
Ist: (z.B.:)
1
1
2
3
3
In diesem Fall muss über der ersten 3 eine Zeile für die zweite 2 eingefügt werden, sowie in den Spalten D:BX der eingefügten Zeile eine 0 stehen.
Zum Ablachen...hier mein unvollständiger Ansatz. Für den Fall, das eine Zeile eingefügt werden muss, sind noch verschiedene andere Dinge zu tun. Das krieg ich aber auf die Reihe.Es geht nur um die Abfrage-Schleife(n).
Sub test()
'If Application.WorksheetFunction.Sum(Range("C2:C7")) <> 9 Then
n = 1
For i = 2 To 7
If Cells(i, 2) <> n Or Cells(i + 1, 2) <> n Then
Rows(i + 1).Insert Shift:=xlDown
Range("B" & i & ":B" & i + 1) = n
End If
n = n + 1
Next i
'End If
'Call Analyse
End Sub
https://www.herber.de/bbs/user/23913.xls
Vielen Dank
Harald