Hi!

Der folgende Code funktioniert soweit so gut, allerdings möchte ich das er die entsprechenden Werte nicht nur in Tabelle 3 kopiert sondern ausschneidet - also in Tabelle 1 löscht quasi. Wie muss ich den Code verändern?

2. Frage: der Wert "Eric Mix" ist ein Name. Kann ich mehrere Namen angeben nach denen der Makro sucht und ausschneidet? Wenn ja wie?

3. Frage: kann ich den Tabellenblättern per Makro ein Namen verpassen?

Vielen Dank!! Gruß Fab

    Sheets.Add After:=ActiveSheet
    Dim i As Long, tLR As Long
    Dim tarWks As Worksheet, srcWks As Worksheet
    Set srcWks = Worksheets("Tabelle1")
    Set tarWks = Worksheets("Tabelle3")
    With srcWks
    For i = 1 To .Cells(.Rows.Count, 8).End(xlUp).Row
        If .Cells(i, 5).Value = "Eric Mix" Then
            tLR = tarWks.Cells(Rows.Count, 1).End(xlUp).Row + 1
            Debug.Print tLR
            With tarWks
                .Range(.Cells(tLR, 1), .Cells(tLR, 8)).Value = srcWks.Range(srcWks.Cells(i, 1), _
    srcWks.Cells(i, 10)).Value
                End With
            End If
        Next i
    End With