ich versuche ein code zu schreiben, welcher ungefähr so läuft
äußere schleife abfrage ob Fertigungsschritte
Suche in Spalte C "'Fertigungsschritt (Detailfertigungsschritt)" und Spalte A ""
wenn gefunden lese Spalte E
Fülle x mit wert aus Spalte E, zeile Y
dann
vergleiche wert x mit Spalte E nächste Zeile
wenn Dann
lese Spalte I
innere schleife
Vergleiche wert aus Spalte I mit nächste Zeile Spalte I
wenn gleich die zeile löschen
Loop aufhören wenn Spalte E ""
ich habe bis jetzt das geschrieben aber wenn ich j i+1 vergleichen möchte zeigt mir Syntaxfehler an. wie kann ich da weiter gehen?
Sub FEKs()
Dim i As Integer
Dim j As Variant
'Fertigungsschritte filtern
LetzteZeile = ThisWorkbook.Worksheets("ExportTable").Cells(ThisWorkbook.Worksheets("ExportTable").Rows.Count, 3).End(xlUp).Row
For i = 2 To LetzteZeile
If ThisWorkbook.Worksheets("ExportTable").Cells(i, 3) = "Fertigungsschritt (Detailfertigungsschritt)" And ThisWorkbook.Worksheets("ExportTable").Cells(i, 2) = "" Then
j = ThisWorkbook.Worksheets("ExportTable").Cells(i, 5).Value
End If
Next i
Vorab vielen Dank!
VG
Javier