AW: kleine Ergänzung...
24.07.2009 13:27:52
Reinhardt
Hallo Tino,
danke für Deine Info,sorry das ich nochmal nerve..es klappt mit den Duplikaten in der Dropdown einfach nicht... Meine Ergebnistabelle und der VBA Code befinden sich alle im selben sheet, das Filtern geht, aber er zeigt mir in der dropdown Box trotzdem noch die doppelten Werte an.
In der Zelle H3 befindet sich die dropdownbox und die Filterkriterien ab Zelle D25 (incl Überschrift).
Im VBA Editor hat das sheet den Namen Tabelle16, aber im Excel (unten im Reiter) steht Tabelle1?
Option Explicit
Private Sub Gueltigkeitsliste()
Dim Dic As Object
Dim strFilterText As String
Dim Arr
Dim L As Long
Set Dic = CreateObject("Scripting.Dictionary")
Arr = Range("D26", Cells(Rows.Count, 2).End(xlUp))
Dic("") = 0
For L = 1 To UBound(Arr)
If Arr(L, 1) "" Then
Dic(Arr(L, 1)) = 0
End If
Next
strFilterText = Join(Dic.keys, ",")
With Range("H3").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=strFilterText
End With
End Sub
Private Sub Worksheet_Activate()
Call Gueltigkeitsliste
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$3" And Target.Cells.Count = 1 Then
With Application
.EnableEvents = False
Select Case Target.Value
Case "", Is = ""
If ActiveSheet.FilterMode Then
ActiveSheet.Range("D25").AutoFilter
End If
Case Is ""
ActiveSheet.Range("D25:D" & ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row). _
AutoFilter 1, Range("H3"), , , False
End Select
.EnableEvents = True
End With
End If
End Sub
Ich bin echt am verzweifeln..
Danke für Hilfe im Voraus nochmal
Reini