Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1100to1104
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
1100to1104
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter bei Zellenauswahl

Autofilter bei Zellenauswahl
Tommi
Liebes Excel-Forum,
ich habe eine Tabelle mit fünf Spalten, auf der Autofilter eingerichtet sind. In Spalte 5 befinden sich Projektnamen (z.B. Tiger, Jaguar etc.). Es soll nun möglich sein, die Tabelle nach den Spalten 1 und 2 zu filtern. Klickt der Nutzer jedoch in eine Zelle der Spalte 5, sollen die zuvor gesetzten Filter aufgehoben und sämtliche Datensätze nach dem dort eingegebenen Projektnamen (z.B. Tiger) gefiltert werden.
Ist dass denn überhaupt möglich, einen Autofilter mittels Zellenauswahl zu aktivieren und den Wert zu übergeben?
Vielen lieben Dank für Eure Unterstützung und schöne Grüße
Tommi

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Autofilter bei Zellenauswahl
03.09.2009 13:01:20
fcs
Hallo Tommi,
die folgende Prozedur muss du im VBA-Editor unter Tabelle einfügen und ggf. anpassen.
Gruß
Franz 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim objFilter As Filter
If Target.Column = 5 And Target.Row > 1 Then '1 ist hier die Nummer der _
Zeile mit den Spaltentiteln
'Prüfen, ob Autofilter-Mode aktiv
If Me.AutoFilterMode = True Then
'Prüfen ob Filter gesetzt und ggf. alle Daten anzeigen
For Each objFilter In Me.AutoFilter.Filters
If objFilter.On = True Then
Me.ShowAllData
Exit For
End If
Next
Me.AutoFilter.Range.AutoFilter Field:=5, Criteria1:=Target.Value
End If
End If
End Sub
So ist die Eingabe von Daten in Spalte 5 mühsehlig, da jedesmal der Filter bei der Zellauswahl neu gestzt wird. Bei umfangreichen Dateneingaben am Besten den Autofilter komplett deaktivieren.
Anzeige
AW: Autofilter bei Zellenauswahl
03.09.2009 16:04:02
Tommi
Hallo Franz,
herzlichen Dank für Deine Antwort. Das funktioniert auch soweit ganz gut. Eine Frage hätte ich jedoch noch:
Kann man den von Dir angegebenen Code bei Bedarf (also bei Klick auf einen Button z.B.) deaktivieren, sodass er nicht ausgeführt wird? Damit versuche ich das von Dir geschilderte Problem bei der Dateneingabe zu umgehen.
Herzlichen Dank und beste Grüße
Tommi
AW: Autofilter bei Zellenauswahl
03.09.2009 16:27:14
Tommi
Und noch eine kurze Frage:
Könnte man den Code dergestalt abwandeln, dass er wirklich nur bei Klick in Spalte 5 etwas ausgelöst wird? Derzeit wird in jeder Spalte/Zelle versucht, etwas zu finden, sodass dauerend das Bild ruckelt.
Herzlichen Dank und beste Grüße
Tommi
Anzeige
AW: Autofilter bei Zellenauswahl
03.09.2009 17:03:51
fcs
Hallo Tommi,
das Makro prüft ob ob eine Zelle in Spalte 5 unterhalb von Zeile 1 selektiert wurde. 
  If Target.Column = 5 And Target.Row > 1 _
And bolNichtFiltern = False Then '1 ist hier die Nummer der _

Das Flackern muss eine andere Ursache haben.
Gruß
Franz
AW: Autofilter bei Zellenauswahl
03.09.2009 16:55:49
fcs
Hallo Tommi,
nimm einen Button aus der Steuerelemente-Toolbox.
Passe den Code im Tabellenmodul wie folgt an. Den namen des Buttons muss du im Code ggf. ebenfalls anpassen. Beim Öffnen der Datei ist das automatische Filtern der Spalte 5 aktiv. Die Beschrifftung des Buttons aber evtl. falsch.
Gruß
Franz
Private bolNichtFiltern As Boolean
Private Sub CommandButton1_Click()
bolNichtFiltern = Not bolNichtFiltern
If bolNichtFiltern = False Then
Me.CommandButton1.Caption = "Filtern Spalte 5 AUS"
Else
Me.CommandButton1.Caption = "Filtern Spalte 5 EIN"
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim objFilter As Filter
If Target.Column = 5 And Target.Row > 1 _
And bolNichtFiltern = False Then '1 ist hier die Nummer der _
Zeile mit den Spaltentiteln
'Prüfen, ob Autofilter-Mode aktiv
If Me.AutoFilterMode = True Then
'Prüfen ob Filter gesetzt und ggf. alle Daten anzeigen
For Each objFilter In Me.AutoFilter.Filters
If objFilter.On = True Then
Me.ShowAllData
Exit For
End If
Next
Me.AutoFilter.Range.AutoFilter Field:=5, Criteria1:=Target.Value
End If
End If
End Sub

Anzeige
AW: Autofilter bei Zellenauswahl
03.09.2009 17:09:22
Tommi
Herzlichen Dank für Deine Antworten. Ich werde das einmal ausprobieren.
Schöne Grüße
Thomas

73 Forumthreads zu ähnlichen Themen

Zeilenumbruch bei verbundenen Zellen
oblivion

Hallo, ich habe mal eine Frage zum Zeilenumbruch. Wenn ich eine einzelne Zelle habe und über die Eigenschaften den Zeilenumbruch einstelle, dann wird automatisch die Zelle größer (nach unten) je mehr ich reinschreibe.
Wenn ich jetzt aber zwei oder mehr Zellen verbinde und die gleichen Einst...
22.08.2008 12:42:00
Thread-ID: 1003815
4 Beiträge
Anzeige
Problem mit Zeilenumbruch in verbundenen Zellen
Christian

Hallo zusammen!
nachdem auf meinen letzten Beitrag leider keine Antworten eingegangen sind, habe ich nochmal selbst versucht, das Problem einzugrenzen.
Es ist nicht nur auf das Dokument beschränkt, mit dem ich Probleme hatte.
Man kann das Problem nachstellen:
Zellen A1 bis D30 v...
03.07.2009 22:42:59
Thread-ID: 1086260
3 Beiträge
Zellenhöhe bei verbundenen Zellen (VBA Code?)
Micha

Hallo liebe Spezialisten,
ich habe folgendes Problem und würde mich über einen VBA-Code riesig freuen.
In der Tabelle1 sind in dem Bereich B53:AI63 die Zellen verbunden.
Der in diesem Bereich von anderen Usern eingegebene Text ist unterschiedlich lang.
Der Zeilenumbruch funktion...
17.09.2009 13:18:38
Thread-ID: 1103550
2 Beiträge
Anzeige
Zellenwerte kopieren bei eingeschaltetem Filter
Stephan

Hallo Profis,
ganz banales Problem !!!
ich habe auf einer Spalte einen Autofilter aktiviert!
nun möchte ich alle angezeigten Inhalte (Werte) von einer Spalte in eine andere Spalte kopieren. Dabe sollen alle ausgeblendeten Zeilen nicht berücksichtigt werden, sondern eben nur die ange...
18.01.2010 10:01:39
Thread-ID: 1130657
7 Beiträge
Verbundene Zellen Autofiltern
Reinhard

Hallo Wissende,
ich habe eine Anfrage in einem anderen Forum gelöst, wüßte aber gerne warum die Lösung klappte.
Vorgabe war, in Zeile 1 steht die Überschrift.
In A2 und A3 dann zwei verschiedene Strassen. B2+B3 sind verbundene Zellen, dort steht dann EINE PLZ für beide Straßen. Dies...
08.11.2010 11:44:12
Thread-ID: 1185628
6 Beiträge
Locked Eigenschaft bei verbundenen Zellen
Christoph

Hallo zusammen,
nachdem mir eben schonmal wunderbar geholfen wurde, wende ich mich mit einem anderen Problem an euch. Szenario schaut wie folgt aus:
Ich habe eine Arbeitsmappe mit mehreren Arbeitsblättern. Die Gesamte Mappe soll gesperrt werden, in einzelnen Arbeitsblättern gibt es jedo...
16.11.2010 14:38:41
Thread-ID: 1187125
5 Beiträge
Autofilter bei aktivierten Zellenschutz
Pfeifer

Hallo Excel-97-Freunde,Ist-Zustand:
Blatteinträge in 500 Zeilen und 20 SpaltenICH KANN DIESEN BEREICH SCHÜTZEN UND UNTER DIESEN 500 ZEILEN NEU ZEILEN ANLEGEN (MIT AKTIVER AUSWAHLLISTE) DIE ICH NACH EINIGER ZEIT MIT IN DEN GESCHÜTZTEN BEREICH AUFNEHMESoll-Zustand:ICH MUß ABER AUCH DENN AUTOFI...
30.05.2002 08:44:55
Thread-ID: 124708
5 Beiträge
Automatischer Zeilenumbruch bei verbundenen Zellen
Andre´

Hallo alle zusammen,
folgendes Makro funktioniert ganz gut. https://www.herber.de/mailing/137101h.htm
Sub AutoFitMergedCellRowHeight2() Dim CurrentRowHeight As Single, MergedCellRgWidth As Single Dim CurrCell As Range Dim ActiveCellWidth As Single, PossNewRowHeight As Single Dim iX As...
01.03.2012 22:38:07
Thread-ID: 1253121
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
3
4
2
1
6
6
5
4
4
1
3
3
2
7
1
1
7
11
1
8
7
4
4
1
1