Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter / Blattschutz VBA

Autofilter / Blattschutz VBA
22.08.2006 09:56:55
Stephan
Hallo
ich habe schon einige Beitrage zum Thema Autofilter mit Blattschutz im Forum gelesen.
In den Lösungen wird immer der Vorschlag gemacht den Blattschutz vorher aufzuheben und wieder neu zu setzten. Ist ja auch O.K.
Ich arbeite mit Excel 2003. Was ich nicht verstehen ist, warum ich den Filter ohne Makro im geschützen Blatt benutzen kann aber nicht durch ein Markro. Ich habe beim Schutz den Haken bei AutoFilter verwenden gesetzt.
Beim Befehl "Selection.AutoFilter Field:=1, Criteria1:="1"" bleibt der Makro hängen
Ich möchte aber mein Blattschutzpasswort nicht im Marko verwenden, und ich möchte auch nicht das Makro ausblenden oder schützen.
Güße Stephan

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter / Blattschutz VBA
22.08.2006 10:25:49
Rene
Hallo!
Schau Dir hierzu mal das folgende Makro an, möglicherweise hilft Dir das weiter.

Sub BlattschutzSetzen()
Sheets("Tabelle3").Protect "Dein Passwort", userinterfaceonly:=True
Sheets("Tabelle3").EnableAutoFilter = True
End Sub

Eine andere Möglichkeit für die Lösung Deines Problems gibt es nicht.
Gruß, Rene
AW: Autofilter / Blattschutz VBA
22.08.2006 10:32:11
René
Hallo Stephan,
du kannst das über einen Umweg ganz einfach machen, in dem dieses MAkro nimmst und damit einen Autofilter simmulierst,
du blendest du Zeile die du nicht willst einfach aus.
Im Blattschutz stellst du ein, daß Zeilen formatiert werden können und los gehts.
Gruß
René
Code:

Sub filter()
Dim i As Integer
Dim a As Integer
Dim AktZelle As Range
Dim NextZelle As Range
i = ActiveSheet.UsedRange.Rows.Count
Set AktZelle = [A1]
For a = 1 To i
Set NextZelle = AktZelle.Offset(1, 0)
If AktZelle.Value <> "Fritz" Then
AktZelle.EntireRow.Hidden = True
End If
Set AktZelle = NextZelle
Next
End Sub

Anzeige
AW: Autofilter / Blattschutz VBA
22.08.2006 19:07:31
Stephan
Hallo Rene,
danke für den Tip mit dem programmierten Filter. Hat super geklappt.
Gruß Stephan
AW: Autofilter / Blattschutz VBA
23.08.2006 09:25:02
Rene
Hallo Stephan,
freut mich wenn ich helfen konnte! :-)
Und immer schön um die Ecke denken! ;-)
Gruß
René
AW: Autofilter / Blattschutz VBA
29.08.2006 11:38:20
Hendrik
Es geht auch eleganter:
Im Code zur zugehörigen Tabelle trägt man ein:

Private Sub Worksheet_Activate()
ActiveSheet.Protect UserInterfaceOnly:=True
End Sub

Das bewirkt, dass die Tabelle beim Aktivieren geschützt wird und nur die Aktionen vom Benutzer mit dem Schutz versehen sind, Makros können machen, was sie wollen.
Willst Du, dass auch die Benutzer den Filter verwenden dürfen, kannst Du:

Private Sub Worksheet_Activate()
ActiveSheet.Protect AllowFiltering:=True, UserInterfaceOnly:=True
End Sub

nehmen.
Um sicherzugehen, dass das Blatt auch aktiviert wird, kannst Du im Code der Arbeitsmappe

Private Sub Workbook_Open()
Sheets("Tabellenblatt").Activate
End Sub

Gruß
Hendrik
Anzeige
AW: Autofilter / Blattschutz VBA
29.08.2006 13:33:39
Stephan
Hallo Hendrik,
danke für Deinen Tipp. Ist eine super Lösung, klappt auch. Leider habe ich schon ca. 90 Blätter in der Excel-Datei und ich müsste die Prozedur ja für alle Blätter machen (oder).
Ich werde Deinen Vorschlag beim nächsten Mal berücksichtigen.
Ciao Stephan
AW: Autofilter / Blattschutz VBA
29.08.2006 17:48:09
Hendrik
Du kannst auch die Zeile
ActiveSheet.Protect UserInterfaceOnly:=True
in das entsprechende Makro einfügen, das müsste auch funktionieren.
Gruß
Hendrik
AW: Autofilter / Blattschutz VBA
29.08.2006 20:33:09
Stephan
Hallo Hendrik,
Du meinst ohne im Markro direkt das Tabellenblatt anzusprechen.
Habe ich gemacht. Klappt mit dem Filter aber nur mit diesem Befehl
ActiveSheet.Protect AllowFiltering:=True, UserInterfaceOnly:=True
Danke und Grüße Stephan
Anzeige

301 Forumthreads zu ähnlichen Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
Autofilter mit VBA
Steffan

Hallo ihr Lieben,
ich hab ein Problem mit einer Filter Routine. In einer Mitgliederliste soll Excel beim Aufruf der Datei überprüfen, ob Mitglieder ihr Austrittsdatum erreicht haben. In Spalte I stehen diese Daten im Format 31.12.2008.
Aus dem Archiv hab ich mir folgenden Code herausges...
12.01.2009 19:15:39
Thread-ID: 1038988
4 Beiträge
Autofilter per VBA aufrufen
Armin

Hallo,
ich habe folgendes Problem mit VBA.
Ich habe in einer Liste den Autofilter eingebunden. Per VBA selektiere ich Daten nach Datumswerten mit folgendem Code:
Zunächst lese ich das in Zelle A1 vorhandene Datum "01.01.2009" aus und lege dieses in der Variable "datVon" ab. Diese Va...
21.01.2009 15:45:00
Thread-ID: 1042249
4 Beiträge
Anzeige
Problem mit Autofilter über VBA
Antsche


Wunderschönen guten Tag,
ich habe ein Problem bei der Nutzung des Autofilters über VBA.
In meinem Excel-File gibt es Tabellenblätter in denen Datensätze hinterlegt sind. Diese sollen über Eingaben in eine UserForm (ComboBoxen) gefiltert werden. Hier die Datei dazu:
https://www...
18.06.2009 16:53:36
Thread-ID: 1082687
4 Beiträge
VBA: Autofilter auf "0" setzen
David

Hallo zusammen.
Wenn in der Datei ein Autofilter gesetzt ist und auch in einem beliebigen Feld ein Kriterium gesetzt ist, wie bekomme ich per VBA die Anzeige ALLER Elemente hin.
Mein Versuch mit Range(XYZ).Autofilter
löscht diesen komplett, was aber nciht gewollt ist. Und .Autofi...
27.08.2009 09:53:08
Thread-ID: 1098941
3 Beiträge
Autofilter Doppelnennungen filtern über VBA
Emil

Hallo zusammen,
ich habe folgendes Problem innerhalb eines größeren Makros:
Ich habe eine Tabelle aus der ich mittels eines Makros Werte in ein Diagramm übertrage.
Hierzu werden schon Spalten über den Autofilter nach bestimmten Auswahlkriterien gefiltert, das funktioniert alles wund...
03.09.2009 17:33:39
Thread-ID: 1100285
2 Beiträge
Blattschutz - Zugriff auf Autofilter -VBA-
Wolfgang

Hallo,
mit nachstehendem Code wird in allen Tabellenblättern der Blattschutz eingeschaltet. Nun mußte ich feststellen, dass AutoFilter sich nicht bedienen lässt, so dass ich hierzu die nachstehende Ergänzung eingebaut habe. Allerdings ohne Erfolg, es tut sich nichts.- Wie müßte ich den Cod...
26.10.2009 19:52:57
Thread-ID: 1112334
5 Beiträge
Ohne VBA: Wenn Autofilter, dann anderen Zellwert
sunni

Hallo alle zusammen,
gibt es eine Möglichkeit über Excel (ohne VBA) zu sehen, ob ein Autofilter gesetzt ist?
Hintergrund: ich habe eine Formel bei gesetztem Autofilter. Wenn aber kein Autofilter gesetzt ist, soll hier in der Zelle eine 0 oder "" erscheinen.
Geht das?
Vielen Dank...
08.01.2010 12:35:47
Thread-ID: 1128216
8 Beiträge
Anzeige

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