Meine For Next schleife geht von Zeile 5 bis "letzte Zeile".
Innerhalb der Schleife werden in dieser Tabelle weitere Zeilen eingeführt. Somit verschiebt sich auch die "letzte Zeile".
Ich habe versucht "letzte Zeile" in der Schleife anzupassen - leider ohne Erfolg. die Schleife wird immer nach der ersten "letzte Zeile" beendet.
Wer hat einen Tip, wie ich das Problem in den Griff bekommen.
Unten sind meine Zeilen.
Vorab Danke!
michael
Dim I As Integer, k As Integer, LetzterVorlage As Integer, LetzterSupplier As Integer
Dim f As Integer
Dim C As Integer
Dim Cluster As String
Dim Clusterspaltenbereich As Range
Dim Clusterspalte As Integer
LetzterVorlage = Sheets("Vorlage").Cells(Cells.Rows.Count, 1).End(xlUp).Row
For I = 5 To LetzterVorlage
Cluster = Worksheets("Vorlage").Cells(I, 3)
Set Clusterspaltenbereich = Worksheets("Supplier").Rows(4).Find(Cluster, Lookat:=xlWhole)
Clusterspalte = Clusterspaltenbereich.Column
LetzterSupplier = Sheets("Supplier").Cells(Cells.Rows.Count, 1).End(xlUp).Row
C = I
For k = 5 To LetzterSupplier
If Worksheets("Supplier").Cells(k, Clusterspalte) = 1 Then 'Wenn 1 dann in Abfrage
If Worksheets("Supplier").Cells(k, 1).Value <> Worksheets("Vorlage").Cells(C, 5).Value Then
Sheets("Vorlage").Range(Cells(I + 1, 1), Cells(I + 1, 1)).EntireRow.Select
Selection.Insert Shift:=xlDown
Worksheets("Vorlage").Cells(I + 1, 1) = Worksheets("Vorlage").Cells(I, 1)
Worksheets("Vorlage").Cells(I + 1, 15) = "new"
I = I + 1
LetzterVorlage = LetzterVorlage + 1
End If
End If
Next k
LetzterVorlage = Sheets("Vorlage").Cells(Cells.Rows.Count, 1).End(xlUp).Row
Next I
End Sub