ich habe ein Makro ergoogelt und angepasst.
Sub Test()
Dim meTab1 As Worksheet, meTab2 As Worksheet
Dim FilterBereich As Range, loLetze As Long
Set meTab1 = Sheets("Mitarbeiter") 'Tabellenname Quelle
Set meTab2 = Sheets("VerfügbarMA") 'Tabellenname Ziel
With Application
.ScreenUpdating = False
.EnableEvents = False
With meTab1
'Bereich leeren für neue Daten
meTab2.Range("B6:B" & meTab2.Rows.Count).Value = ""
'Filterbereich zuweisen anwenden
Set FilterBereich = .Range("B2", .Cells(.Rows.Count, 1).End(xlUp))
'Spezialfilter anwenden
FilterBereich.AdvancedFilter xlFilterInPlace, Unique:=True
'Sichtbare Zellen kopieren
FilterBereich.Offset(0, 1).SpecialCells(xlCellTypeVisible).Copy meTab2.Range("b6")
'Filter löschen
If .FilterMode Then .ShowAllData
End With
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Das Makro soll im Blatt "Mitarbeiter" die einzelnen Mitarbeiter im Bereich B2:B? ohne Duplikate filtern und dann in das Blatt "VerfügbarkeitMA" in den Bereich B6:B? schreiben.Es funktioniert auch - aber er bringt mir auch Duplikate. (In Spalte A im Blatt Mitarbeiter ist eine fortlaufende Nummer - ist das die Ursache?)
Was muß ich ändern um Einträge ohne Duplikate zu bekommen?
Vielen Dank für Eure Hilfe
Gruß Lutz