Hallo liebe Leute,

ich habe folgendes Problem. ich habe eine tabelle mit fast 50 Abteilungen auf die Spalten verteilt. Nun lass ich den Bereich D2 bis MZ2 durchsuchen und immer wenn etwas in einer Zelle steht den Inhalt in eine combobox schreiben. Funktioniert auch super. Jetzt gibt es nur ein Problem. Wenn ich nach dem ersten Bereich in der Tabelle Suche (hier bezeichnet als "NR-X-X-NX") gibt mir meine programmierte filterfunktion auch diesen Bereich aus (also blendet alle anderen Bereiche aus). Ein wenig Später gibt es dann noch die Abteilung "NR-X-X". hierbei zeigt mir die Filterfunktion aber wieder den Bereich "NR-X-X-NX" an da ja das NR-X-X auch darin enthalten ist.

Mein algo ist so geschrieben das egal wie die Bereiche erweitert/verändert werden die Filterfunktion dynamisch den Bereich anzeigt, d.h. ich gehe nicht direkt über explizite Spaltenbezeichnungen. Kann mir da jemand helfen??

a = ComboBox1.Value
CommandButton3.Enabled = False

Select Case a = ComboBox1.Value

Case a = "Alle Organisationen"
    Columns("A:MI").Hidden = False
    Rows("1:100").Hidden = False
    Range("C1").Value = Null
    Range("C2").Value = Null
    
Case a <> "Alle Organisationen"
    Set rngN = Range("C2:MZ2").Find(a, LookIn:=xlValues, MatchCase:=True)
    
    With rngN.MergeArea
    
         'erste
            w = .Cells(1).Row
            x = .Cells(1).Column
        
         'letzte
            y = .Cells(.Cells.Count).Row
            z = .Cells(.Cells.Count).Column
            
            Range("C1").Value = x
            Range("C2").Value = z
        
    End With

    Columns("D:MI").Hidden = True
    Range(Columns(x), Columns(z)).Hidden = False
    
    ComboBox1.Enabled = False
    CommandButton3.Enabled = True
    
End Select

End Sub