Office: VBA Code für Zellenkopierung

Hallo leider bin ich es mal wieder, danke für die Hilfe mit den vielen Seiten, bin mich da auch schon am rumkämpfen, zu dem Code unten. Es kommt leider immer noch eine Fehlermeldung

IF Block ohne END Block?

ich weiss einfach nicht was das heissen soll, der aktuelle Code ist nun unten angegeben, vielleicht könnte mir jemand nochmal helfen.

Wenn ich das jetzt so aus dem reinen Menschenverstand interpretieren würde, heisst es für mich, da muss irgendwo eine If Anweisung sein die kein Endung hat? jede If Anweisung muss ja auch beendet werden? oder verstehe ich das falsch?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    Dim raZelle As Range
    On Error GoTo fertig
    If Not Intersect(Target, Range("g2:U1000")) Is Nothing Then
      Set r = Range(Cells(Target.Row, 1), Cells(Target.Row, 21))
      If LCase(Target) = "x" Then
        Select Case Target.Column
          Case 7 '=G
          r.Interior.ColorIndex = 6
          Case 21, 17 '=Spezial
            With Worksheets("Spezial")
                If .FilterMode Then .ShowAllData
                Set raZelle = .Columns(4).Find(r.Cells(1), lookat:=xlWhole)
                If Not raZelle Is Nothing Then
                    MsgBox "Diesen Eintrag gibt es bereits in der Spezialrecherche"
                Else
                    Range(Cells(r.Row, 1), Cells(r.Row, 4)).Copy
                    .Cells(IIf(IsEmpty(.Cells(.Rows.Count, 4)), .Cells( _
                        .Rows.Count, 4).End(xlUp).Row, .Rows.Count) + 1, 4).PasteSpecial _
                        Paste:=xlValues
                End If
            End With
            Application.CutCopyMode = False
        Case 8 '=H
            r.Interior.ColorIndex = 38
          Case 9 '=I
            r.Interior.ColorIndex = 12
          Case 10 '=J
            r.Interior.ColorIndex = 28
          Case 11 '=K
            r.Interior.ColorIndex = 40
          Case 12 '=L
            r.Interior.ColorIndex = 3
          Case 13 '=M
            r.Interior.ColorIndex = 15
          Case 14 '=N
            r.Interior.ColorIndex = 32
        End Select
' Inhalt wurde gelöscht
    ElseIf Target = "" Then
        ' Füllfarbe der Zeile zurücksetzen in der das "x" gelöscht wurde
        r.Interior.ColorIndex = xlNone
        ' "x" wurde in Spalte 21 gelöscht
        If Target.Column = 21 Then
            ' Code in Tabvelle "Spezial" ausführen
            With Worksheets("Spezial")
                ' suche in Spalte D nach dem Wert aus Spalte A, gesamten Zellinhalt vergleichen
                Set raZelle = .Columns(4).Find(r.Cells(1), lookat:=xlWhole)
                ' Eintrag wurde gefunden dann gefundene Zeile löschen
                If Not raZelle Is Nothing Then .Rows(raZelle.Row).Delete Shift:=(xlUp)
            End With
        ' "x" wurde in Spalte 17 gelöscht
        ElseIf Target.Column = 17 Then
            ' Code in Tabelle "LA Liste" ausführen
            With Worksheets("LA Liste")
                ' suche in Spalte A nach dem Wert aus Spalte A, gesamten Zellinhalt vergleichen
                Set raZelle = .Columns(1).Find(r.Cells(1), lookat:=xlWhole)
                ' Eintrag wurde gefunden dann gefundene Zeile löschen
                If Not raZelle Is Nothing Then .Rows(raZelle.Row).Delete Shift:=(xlUp)
            End With
        End If
    End If
    Set raZelle = Nothing
    End Sub

 

Hi,

ich würde mal annehmen, nach dem letzten End If fehlt ein weiteres End If.

Bis später,
Karin

 

Danke für die Info. habs geändert und schon kommt die nächste Fehlermeldung.

Dabei wird der Code

Code:

On Error GoTo fertig

markiert und die Fehlermeldung " Sprungmarke nicht definiert "

 

Hi,

wenn du keine Sprungmarke drin hast im Code, dann wird logischerweise ein Fehler ausgelöst, da sie nicht gefunden wird. Ich nehme an, du brauchst sie gar nicht - also lösche diese Zeile.

Bis später,
Karin