Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1676to1680
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1676to1680
1676to1680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filter für Spalte

Filter für Spalte
05.03.2019 12:01:29
sigrid
Hallo zusammen,
ich bin auf der Suche nach einer Filtermöglichkeit nur für eine
bestimmte Spalte.
(Für das sortieren hab ich sowas gefunden)
Ich möchte gern, wenn der Courser auf einer Spalte steht, beim anklicken
eines Button eine Textbox geöffnet wird und ich den Suchbegriff
für die selektierte Spalte eingeben kann.
Meine Kopfzeile ist in Zeile 2, geht bis Spalte 18.
Gibt es sowas ?
mfg sigrid

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter für Spalte
05.03.2019 12:35:30
{Boris}
Hi,
ich platziere mir oft oberhalb der Spalte ein Textfeld, bei dem mittels Change-Ereignis der Filtervorgang angestoßen wird.
Nach diesem Muster:
Ins Klassnmodul ds entspechenden Blattes:
Private Sub TextBox21_Change()
Call Filtern(Me.TextBox21.Text, 2)
End Sub
In ein allgemeines Modul:
Sub Filtern(s As String, l As Long)
Tabelle1.Unprotect
Application.ScreenUpdating = False
If s  "" Then
Range("A37").AutoFilter Field:=l, Criteria1:="=*" & s & "*", Operator:=xlAnd
Else
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End If
Tabelle1.Protect AllowFiltering:=True
Application.ScreenUpdating = True
End Sub
Im Beispiel geht der Filtervorgang in Zeile 37 los - das muss Du anpassen. Ebenfalls den Namen der Textbox sowie die zu filternde Spalte (im Beispiel: 2)
VG, Boris
Anzeige
AW: Filter für Spalte
05.03.2019 13:45:40
sigrid
Hallo Boris,
ich würde gern das Makro mit einem Button oder OptionB durchführen.
und es soll in der aktiven Spalte durchgeführt werden, wo der Courser steht.
mfg sigrid
AW: Filter für Spalte
05.03.2019 12:54:51
Werner
Hallo Sigrid,
so: 
Public Sub Spalte_filtern()
Dim strSuchbegriff As String
strSuchbegriff = InputBox("Bitte Suchbegriff eingeben", "Filtern nach")
If Not strSuchbegriff = vbNullString Then
Columns(Selection.Column).AutoFilter field:=1, Criteria1:=strSuchbegriff
End If
End Sub
Gruß Werner
AW: Filter für Spalte
05.03.2019 13:43:57
sigrid
Hallo Werner,
hab mal eingesetzt: 
Private Sub OptionButton1_Click()
Spalte_filtern
OptionButton1.Value = False
End Sub

Ab Zeile 3 stehen bei mir die Daten, bis zur Spalte 18. 
Public Sub Spalte_filtern()
Dim strSuchbegriff As String
strSuchbegriff = InputBox("Bitte Suchbegriff eingeben", "Filtern nach")
If Not strSuchbegriff = vbNullString Then
Columns(Selection.Column).AutoFilter field:=3, Criteria1:=strSuchbegriff
End If
End Sub
Es kommt eine Fehlermeldung:
Laufzeitfehler 1004, Die Autofilter-Methode des Range-Objektes konnte nicht ausgeführt werden.
In der Tabelle ist kein Schutz enthalten.
mfg
sigrid
Anzeige
AW: Filter für Spalte
05.03.2019 14:21:13
Werner
Hallo Sigrid,
das Makro macht genau das was du im Eingangsbeitrag wolltest.
Du wählst eine Zelle aus, klickst auf den Button, Eingabemaske öffnet sich, Spalte der aktiven Zelle wird gefiltert.
Wo kommt jetzt plötzlich der OptionButton her?
Gruß Werner
AW: Filter für Spalte
05.03.2019 15:50:12
sigrid
Hallo Werner,
habe OptionButton wieder rausgenommen und ein Button erstellt.
Es funktioniert aber die Titelzeile 2 wird gelöscht, hatte mal anstatt 1 eine 2 eingegeben,
da kam die Fehlermeldung.
mfg sigrid
AW: Filter für Spalte
05.03.2019 15:50:13
sigrid
Hallo Werner,
habe OptionButton wieder rausgenommen und ein Button erstellt.
Es funktioniert aber die Titelzeile 2 wird gelöscht, hatte mal anstatt 1 eine 2 eingegeben,
da kam die Fehlermeldung.
mfg sigrid
Anzeige
Es sollte Zeile 1 + 2 sichtbar bleiben !
05.03.2019 15:55:33
sigrid
Hallo Werner,
habe getestet, als klappt soweit aber die Zeile 2 ist weg, meine Titel stehen darin.
mfg sigrid
AW: Es sollte Zeile 1 + 2 sichtbar bleiben !
05.03.2019 16:12:39
Werner
Hallo Sigrid,
so: 
Public Sub Spalte_filtern()
Dim strSuchbegriff As String, loLetzte As Long
strSuchbegriff = InputBox("Bitte Suchbegriff eingeben", "Filtern nach")
If Not strSuchbegriff = vbNullString Then
loLetzte = Cells(Rows.Count, Selection.Column).End(xlUp).Row
Range(Cells(2, Selection.Column), Cells(loLetzte, Selection.Column)) _
.AutoFilter field:=1, Criteria1:=strSuchbegriff
End If
End Sub
Gruß Werner
Super Werner, danke ! --))
05.03.2019 17:28:13
sigrid
Gerne u. Danke für die Rückmeldung. o.w.T.
05.03.2019 18:56:10
Werner

186 Forumthreads zu ähnlichen Themen

Zeilenhöhe nach Zelleninhalt
Tom

Hallo,
Ich möchte gern je nach Zelleninhalt in der Spalte "D" die Zeilenhöhe abhängig machen.
Steht in "D" Hauptprojekt, so soll die Zeilenhöhe 27 betragen
steht in "D" Teilprojekt, so soll die Zeilenhöhe 20 sein
und ist "D" leer, dann soll die Zeilenhöhe 15 betragen
Die For...
01.09.2008 13:53:00
Thread-ID: 1006431
2 Beiträge
Anzeige
Filtern in Zeilen
Andreas

Guten Morgen,
ist es möglich im Excel waagerecht zu filtern? Zum Beispiel sollte in Zeile 2 nach allen Spalten gesucht werden die den Wert "x" enthalten. D.h alle anderen Spalten die nicht dem Suchktrerium entsprechen müssten ausgeblendet werden.
Ist soetwas (ggf ohne Makro) möglich?
07.11.2008 06:20:00
Thread-ID: 1022476
7 Beiträge
Filtern mit mehreren Einträgen pro Zeile
Nico

Hallo,
ich bin gerade dabei eine Kontaktliste zu erweitern.
Pro Zeile ist ein Kontakt eingetragen.
Ich will die Kontakte jetzt gruppieren können.
Ich möchte einen Kontakt z.B. drei Kathegorien zuordnen ("Freunde", "München", "Schule")
Bei einem anderen soll z.B. stehen "Beka...
14.01.2009 19:41:32
Thread-ID: 1039783
12 Beiträge
Anzeige
Zeilennr. in gefilterten und markierten Bereich
Kasimir

Hallo Leute,
ich stehe auf dem Schlauch und weiß ehrlich auch nicht so ganz, ob das was ich realisieren möchte überhaupt geht?
Also, ich filtere über den Autofilter Daten. Bei diesen gefilterten Daten möchte ich danach einen Bereich, also mehrere zusammenhängende Zellen in einer Spalte...
04.04.2009 08:21:59
Thread-ID: 1066813
7 Beiträge
Grafik in Kopfzeile gelöscht; wie wieder einfügen?
abdipost

Hallo zusammen,
habe aus einem Tabellenblatt in einer Excel-Mappe die Grafik aus der Kopfzeile gelöscht.
Die Grafik habe ich nicht als Datei vorliegen.
Wie bekomme ich die wieder rein?
In den anderen Tabellenblättern ist sie noch enthalten.
Danke für Eure Hilfe
16.06.2009 15:36:17
Thread-ID: 1081936
9 Beiträge
Autofilter für Spalten?
Timo

Hallo,
ich würde gern über ein Makro gewisse Spalten ausblenden.
In der Beispieldatei über den u.s. Link sollen alle Spalten ausgeblendet (also versteckt) werden, die eine "0" in Zeile 1 aufweisen. Überall, wo eine "1" steht, sollen die Spalten weiterhin lesbar sein.
https://www.h...
12.07.2009 18:07:56
Thread-ID: 1087997
9 Beiträge
Makro für Kopiern eine Spalte links davon einfügen
einfügen

Hallo,
ich bin auf der Suche nach einer Lösung für folgendes Problem.
Ich möchte die Werte die ich markiert habe (die Markierung ist jedes mal anders) kopieren und eine Spalte links davon als "Werte und Zahlenformate" einfügen. Die Markierung besteht vor Ausführung des Makros. Wie bring...
28.07.2009 15:51:06
Thread-ID: 1091972
5 Beiträge
Vertikal in horizontal
Stefan

Hallo zusammen,
in einem Tabellenblatt habe ich Daten vertikal angeordnet (z.B. A1 bis A10). In einem weiteren Blatt möchte ich nun auf diese Werte verweisen, aber in horizontaler Ausrichtung. In A1 des zweiten Blattes schreiben und nun als Formel =Tabelle1!A1.
Mit "Inhalte einfügen -...
30.09.2009 00:42:04
Thread-ID: 1106311
5 Beiträge
Anzeige

Links zu Excel-Dialogen

OptionButton TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
12
6
11
2
6
8
8
4
4
5
4
3
1
3
7
1
4
1
2
2
1
4
6
4