Wie behebt man Kompilierfehler: erwartet End Sub?

Question

Ich versuche ein Makro zu erstellen, dass, wenn eine Informationszeile zu einem meiner Blätter hinzugefügt wird, diese Zeile automatisch zu einem anderen Blatt (in derselben Arbeitsmappe) hinzugefügt wird. Ich habe ausführlich Online recherchiert und fand diesen Code, den ich denke, das tut, was ich will, nachdem ich es ein wenig gezwickt:

Sub addrow() 

Public Sub worksheet_change(ByVal target As Range) 

    Set sourcebook = ThisWorkbook 
    Set sourcesheet = sourcebook.Worksheets("sheet1") 

    Set targetbook = ThisWorkbook 
    Set targetsheet = targetbook.Worksheets("sheet10") 

    If sourcesheet.Cells(198, 16).Value = "Auto" Or _ 
     sourcesheet.Cells(198, 16).Value = "Connect" Or _ 
     sourcesheet.Cells(198, 16).Value = "Multiple*" Or _ 
     sourcesheet.Cells(198, 16).Value = "Property" Or _ 
     sourcesheet.Cells(198, 16).Value = "Umbrella" Or _ 
     sourcesheet.Cells(198, 16).Value = "WC" Then 
     GoTo link 
    Else 
     GoTo insertion 
    End If 

    insertion: targetsheet.Activate 
    ActiveSheet.Rows(198).EntireRow.Insert 

    sourcesheet.Activate 

link: 
    'targetsheet.Cells(194, targetsheet.Range("initial response").Column) = sourcesheet.Cells(198, 16).Value 
    targetsheet.Cells(194, 16) = sourcesheet.Cells(198, 16).Value 

    targetsheet.Cells(194, 16) = sourcesheet.Cells(198, 16).Value 

End Sub 

Wenn ich versuche, den Code auszuführen, erhalte ich die Fehlermeldung „Fehler beim Kompilieren: Expected End Sub "und es hebt die erste Codezeile hervor - Sub addrow(). Wenn ich versuche, diese Zeile herauszunehmen, verlangt VBA, dass ich ein neues Makro erstelle, wenn ich es versuche und ausführe, das dann diese Zeile wieder hinzufügt, und ich bin zurück auf Platz eins.

Answer 1

Konzentrieren Sie sich auf die ersten 3 Zeilen. Sie haben zwei Sub Erklärungen dort. Halte nur einen. Vielleicht Linie entfernen

Public Sub worksheet_change(ByVal target As Range) 

Ich denke, diese Zeile entfernen sollte und nicht das andere, weil es von einigen früheren Arbeiten vergessen zu sein scheint. Ihr Parameter target wird nicht im Code verwendet und Ihr Code passt besser zu Name addrow als mit worksheet_change.

Dies wird Ihr Code Refactoring:

• Variablennamen halten VBA Namenskonvention
• Codeblöcke neu angeordnet, so gotos und Etiketten

ausgeschlossen werden konnte.

Sub AddRow() 

    Set SourceBook = ThisWorkbook 
    Set SourceSheet = SourceBook.Worksheets("sheet1") 

    Set TargetBook = ThisWorkbook 
    Set TargetSheet = TargetBook.Worksheets("sheet10") 

    If Not (SourceSheet.Cells(198, 16).Value = "Auto" 
      Or SourceSheet.Cells(198, 16).Value = "Connect" 
      Or SourceSheet.Cells(198, 16).Value = "Multiple*" 
      Or SourceSheet.Cells(198, 16).Value = "Property" 
      Or SourceSheet.Cells(198, 16).Value = "Umbrella" 
      Or SourceSheet.Cells(198, 16).Value = "WC") Then 
     TargetSheet.Activate 
     ActiveSheet.Rows(198).EntireRow.Insert 
     SourceSheet.Activate 
    End If 

    'TargetSheet.Cells(194, TargetSheet.Range("initial response").Column) = SourceSheet.Cells(198, 16).Value 
    TargetSheet.Cells(194, 16) = SourceSheet.Cells(198, 16).Value 
    TargetSheet.Cells(194, 16) = SourceSheet.Cells(198, 16).Value 

End Sub