Ich habe ein Blatt namens Backlog, das Zeilen und Spalten mit Daten enthält. Ich benötige Code, der zeilenweise in der vorletzten Spalte nach # N / A sucht. Wenn es # N / A findet, muss es in der letzten Spalte prüfen, ob es ein C enthält oder nicht. Wenn es ein C enthält, sollte die gesamte Zeile an ein Blatt mit dem Namen Abmelden angehängt werden. Wenn die letzte Spalte kein C enthält, sollte die gesamte Zeile an ein Blatt mit dem Namen "Verweigert" angehängt werden. Die Zeile sollte aus dem ursprünglichen Backlog-Blatt gelöscht werden, sobald sie entweder auf Abmelden oder Verweigert verschoben wurde. Der Code, den ich unten habe, funktioniert nicht. Nach der ersten For-Anweisung geht es zu End Sub, aber es gibt keine Kompilierungsfehler.

Private Sub CommandButton2_Click()
    Dim IMBacklogSh As Worksheet
    Set IMBacklogSh = ThisWorkbook.Worksheets("Backlog")
    Dim logoffSh As Worksheet
    Set logoffSh = ThisWorkbook.Worksheets("Claims Logged off")
    Dim deniedsh As Worksheet
    Set deniedsh = ThisWorkbook.Worksheets("Claims Denied")

    IMBacklogSh.Select
    Dim i As Long
    For i = 3 To Cells(Rows.Count, 13).End(xlUp).Row
        If Cells(i, 13).Value = "#N/A" Then
            If Cells(i, 14).Value = "C" Then
            IMBacklogSh.Rows(i).EntireRow.Copy Destination:=logoffSh.Range("A" & logoffsh.Cells(Rows.Count, "A").End(xlUp).Row + 1)
            Else
            IMBacklogSh.Rows(i).EntireRow.Copy Destination:=deniedsh.Range("A" & deniedsh.Cells(Rows.Count, "A").End(xlUp).Row + 1)
            End If
        End If
    Next i
End Sub