Hallo miteinander,

ich versuche gerade folgendes, ich habe eine Dropdown Liste und möchte das wenn ich dort was Lösche es in der Tabelle wo der Inhalt her kommt dieses komplett gelöscht wird inkl. Zeile. Der Inhalt kommt aus dem Arbeitsblatt "Rohdaten".
So sieht mein Aufbau zurzeit aus:

1. Arbeitsblatt "Eingabedialog":

Zelle G4 ist die Dropdown Liste. J13:J17 ist die Ausgabe der Auswahl aus der Dropdown Liste, diese Daten kommen aus dem Arbeitsblatt "Rohdaten".

Dies ist mein VBA Code:
 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim selectedOption As String
    Dim searchData As Variant
    Dim lastRow As Long

    ' Überprüfe, ob die Änderung in der Dropdown-Liste (Zelle G4) des Tabellenblatts "Eingabedialog" stattgefunden hat
    If Target.Address(0, 0) = "G4" And Target.Value <> "" Then
        selectedOption = Me.Range("G4").Value
        With Sheets("Rohdaten")
            ' Suche nach der ausgewählten Option in der ersten Spalte
            searchData = Application.Match(selectedOption, .Columns(1), 0)
            
            If IsNumeric(searchData) Then
                ' Wenn die Option gefunden wurde, übertrage die Daten in J13:J17
                Application.EnableEvents = False
                Me.Range("J13:J17") = WorksheetFunction.Transpose(.Cells(searchData, 2).Resize(1, 5))
                Application.EnableEvents = True
            Else
                ' Wenn die Option nicht gefunden wurde, füge sie als neue Zeile hinzu
                lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                .Cells(lastRow, 1).Value = selectedOption
                Application.EnableEvents = False
                Me.Range("J13:J17").ClearContents
                Application.EnableEvents = True
            End If
        End With
    Else
        ' Überprüfe, ob die Änderung in dem Bereich J13:J17 stattgefunden hat
        If Not Intersect(Target, Me.Range("J13:J17")) Is Nothing Then
            If Me.Range("G4").Value <> "" Then
                With Sheets("Rohdaten")
                    searchData = Application.Match(Me.Range("G4").Value, .Columns(1), 0)
                    If IsNumeric(searchData) Then
                        .Cells(searchData, 2).Resize(1, 5).Value = WorksheetFunction.Transpose(Me.Range("J13:J17").Value)
                    End If
                End With
            End If
        End If
    End If
End Sub

2. Arbeitsblatt "Rohdaten":

Besteht nur aus einer Tabelle von A2:G8, ist aber Variabel in seiner Länge, da ich über die Dropdown Liste in Spalte A Daten hinzufügen kann.

Wäre super wenn mir jemand helfen könnte, da alle meine Versuche gescheitert sind.

Vielen DAnk und Gruß

Tom