Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
272to276
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
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AutoFilter - in 2 bereichen

AutoFilter - in 2 bereichen
30.06.2003 17:09:23
Jeanetta
Hallo Experts,
habe ein Problem, wo ich von alleine nicht weiter komme; vielleicht kann jemand helfen?
Problem:
- es gibt einen Worksheet mit Spalten A bis K;
- die Benutzern sollen nur nach der Werten in der Spalten A,B,C,D,,,G filtern;
- ich kann die Reihenfolge leider nicht aendern.
Viele Gruesse,
Jeanetta

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: AutoFilter - in 2 bereichen
30.06.2003 17:16:17
th.heinrich
hallo Jeanetta,
blende doch die spalten nach, denen nicht gefiltert werden darf, aus.
gruss thomas

AW: AutoFilter - in 2 bereichen
30.06.2003 17:21:25
Jeanetta
Thomas,
die Benutzer sollen die Spalten schon sehen :)) Nur nicht filtern koennen - als Loesung waere auch moeglich die Pfeile in diesen Spalten ausblenden, ich weiss aber nicht wie :((

AW: AutoFilter - in 2 bereichen
30.06.2003 17:50:26
Boris
Hi Jeanetta,
hab mal von L.Vira einen Code bekommen, der die Filterzellen FARBIG hinterlegt.
Diesen hab ich mal abgeändert und verkürzt:
Option Explicit

Private Sub Worksheet_Activate()
[iv65536].FormulaLocal = "=ZUFALLSZAHL()"
End Sub



Private Sub Worksheet_Calculate()
Dim aSh As Worksheet
Set aSh = ActiveSheet
If aSh.AutoFilter.Filters(2).On Then
aSh.ShowAllData
Exit Sub
End If
End Sub



Private Sub Worksheet_Deactivate()
[iv65536] = ""
End Sub

Es sind alles Ereignismakros, die DIREKT in das Modul der Tabelle gehören.
Das Problem ist halt, dass der normale Filtervorgang kein Ereignis auslöst - da muss man dann zunächst in eine selten benutzte Zelle (IV65536) die Funktion ZUFALLSZAHL einschmuggeln, damit das Calculate_Ereignis immer angestossen wird.
In diesem Beispiel wird das Filtern über den ZWEITEN Filter verboten - wenn du also A bis H hast, dann wird Spalte B zum Filtern ausgeschlossen.
Grüße Boris

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige