Werte nur einfach aufzählen
02.10.2006 17:46:47
petra
hab mal wieder ein makro problem:
und zwar möchte ich aus Spalte L (ab L3) mit vielen unterschiedlichen und gleichen Werten eine Liste in Spalte N (ab N3) auflisten, in denen die Werte aus L nur einmal vorkommen.
hab nun nen makro der irgendwann auch mal funktioniert hat. aber irgendwie klappt es jetzt nicht mehr. Kann mir jemand weiterhelfen, den makro wieder in gang zu kriegen?
Hier der Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ziel As Range
If Cells(1, Target.Column).Value <> "xxx1" Then Exit Sub
If Application.WorksheetFunction.CountIf(Rows(1), "xxx2") <> 1 Then
MsgBox ("Kein Eindeutiger Zielbereich vorhanden ('xxx2' in Reihe 1)")
Exit Sub
End If
Set Ziel = Rows(1).Find(what:="xxx2").Offset(1, 0)
Range(Cells(2, Target.Column), Cells(2, Target.Column).End(xlDown)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Ziel, Unique:=True
End Sub
danke für hilfe
lg
petra