VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
flexibeler Bereichsauswahl	19.10.2020 12:00:51	Kaan
flexibeler Bereichsauswahl	19.10.2020 12:49:37	volti
flexibeler Bereichsauswahl	20.10.2020 08:28:40	Gast93084

Ansicht des Beitrags:

Von:
Kaan

Datum:
19.10.2020 12:00:51

Views:
754

Rating:

Antwort:

Thema:
flexibeler Bereichsauswahl

Hallo Zusammen,

ich habe mit viel googlen und rumprobieren Suchfunktionen in meine Excel implementiert, die eine selektierte Suche in meiner Tabelle ermöglichen.

Jetzt möchte ich die Range aber flexibel haben d.h wenn ich eine Zeile oder Spalte hinzufüge bzw. entferne soll sich das automatisch anpassen.

UsedRange funktioniert nicht, da ich Zeile 1-9 sowie Spalte A-C nicht in der Range haben möchte.

Hier mein bisheriger Code, der soweit gut funktioniert.

Sub Filtern_Horizontal()
Dim Zelle As Range                            
Dim Bereich As Range
Dim Filtertext As String
Dim Einblenden As Range


Set Bereich = Range("D9:AF136")  
Filtertext = InputBox("Search is case sensitive                                                 filters columns, please add * in front and after")
For Each Zelle In Bereich
    If Zelle.Text Like Filtertext Then         
        If Einblenden Is Nothing Then
            Set Einblenden = Zelle
        Else
            Set Einblenden = Union(Einblenden, Zelle)
        End If
    End If
Next
Bereich.EntireColumn.Hidden = True               
Einblenden.EntireColumn.Hidden = False
End Sub

Ich hoffe ihr könnt mir weiterhelfen. Ich bekomm das irgendwie nicht hin.

Danke im vorraus.

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
flexibeler Bereichsauswahl	19.10.2020 12:00:51	Kaan
flexibeler Bereichsauswahl	19.10.2020 12:49:37	volti
flexibeler Bereichsauswahl	20.10.2020 08:28:40	Gast93084