Dropdownbox Filterung nixht angrenzender Zellen

Reinhardt · 1970-01-01T00:00:00+00:00

Liebe Excelfreunde, ich habe mal wieder zwei Probleme: In anhängender Datei habe ich eine Ergebnisliste die ich durch eine Dropdownbox-Filterung auswerten möchte. Die Länder in der Dropdownbox können mehrfach auftauchen. Die Dropdownbox habe ich mit "Daten und Gütigkeit" erstellt. https://www.herber.de/bbs/user/63396.xls Folgende Probleme: 1. Es gibt Duplikate in der Dropdownbox 2. Wenn ich in der Dropdownbox ein Land auswähle, soll er mir im Ergebnisbereich nur das in der Dropdownbox ausgewählte Land und seinen Werten anzeigen. Habt Ihr eine "einfache" Idee?..VBA Kenntinsse sind nur sehr rudimentär vorhanden :-( Danke im Voraus!! Reini

Hallo,
ohne jetzt die Optimierung von Luschi einzubauen geht es so.
Wenn der Code im Klassenmodul Tabelle test steht, musst Du bei allen Daten die sich auf eine andere Tabelle beziehen den Ort also die Tabelle mit angeben.
Sonst beziehen sich die Zellen immer auf die Tabelle wo auch der Code steht.
kommt als Code in test

Option Explicit 
 
Private Sub Gueltigkeitsliste() 
Dim Dic As Object 
Dim strFilterText As String 
Dim Arr 
Dim L As Long 
 
With Sheets("Tabelle1") 
    Set Dic = CreateObject("Scripting.Dictionary") 
    Arr = .Range("B11", .Cells(.Rows.Count, 2).End(xlUp)) 
     
    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("F3").Validation 
            .Delete 
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=strFilterText 
    End With 
End With 
End Sub 
 
Private Sub Worksheet_Activate() 
 Call Gueltigkeitsliste 
End Sub 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Address = "$F$3" And Target.Cells.Count = 1 Then 
 With Application 
  .EnableEvents = False 
    With Sheets("Tabelle1") 
        If Target <> "" Then 
         .Range("B10:B" & .Cells.SpecialCells(xlCellTypeLastCell).Row).AutoFilter 1, Range("F3"), , , False 
        Else 
         If .FilterMode Then .Range("B10").AutoFilter 
        End If 
    End With 
  .EnableEvents = True 
 End With 
End If 
End Sub

Gruß Tino

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

Dropdownbox Filterung nixht angrenzender Zellen

Forumthread: Dropdownbox Filterung nixht angrenzender Zellen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Dropdownbox Filterung nixht angrenzender Zellen

Forumthread: Dropdownbox Filterung nixht angrenzender Zellen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread