AW: Danke Michael, anbei eine Bsp.-Mappe
27.04.2017 12:58:35
Daniel
Hi
hier noch ne Codevariante.
es werden automatisch alle Blätter durchsucht, außer dem, in welchem eingefügt wird.
eine "Chronologie" ist aus deinen Daten nicht zu erkennen, daher werden die Werte für sich sortiert.
fürs Duplikate-Entfernen gibt's in Excel ne eigene Funktion, die man nach dem zusammenkopiern ausführen kann.
Sub test()
Dim ws As Worksheet
Dim Zelle As Range
With Sheets("Tabelle1")
.Range(.Cells(2, 2), .Cells(2, 1).End(xlDown)).ClearContents
For Each ws In ThisWorkbook.Worksheets
If ws.Name .Name Then
Set Zelle = ws.Rows(1).Find(what:="Verkäufer")
If Not Zelle Is Nothing Then
Range(Zelle.Offset(1, 0), Zelle.End(xlDown)).Copy
.Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End If
End If
Next
With .Columns(2)
.Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlYes
.RemoveDuplicates 1, xlYes
End With
End With
End Sub
Gruß Daniel