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
|