Herbers Excel-Forum - das Archiv

Worksheet_Change Ereignis sperren wenn Filter akti

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Worksheet_Change Ereignis sperren wenn Filter akti
von: helena

Geschrieben am: 12.12.2006 21:04:12
Hallo
ist es möglich das CHANGE ereignis zu sperren wenn AUTOFILTER im Blatt aktiv ???
habe ein Makro für Autofilter aber bei CHANGE Ereignis gibt es Problem während Filter benötige ich aber CHANGE nicht.
DANKE für Antwort
gruss helena
Bild

Betrifft: AW: Worksheet_Change Ereignis sperren wenn Filter
von: EtoPHG
Geschrieben am: 12.12.2006 21:25:42
Hallo Helena,
In die Change Routine als erstes:
If ActiveSheet.AutoFilterMode Then Exit Sub

Gruss Hansueli
Bild

Betrifft: Worksheet_Change Ereignis sperren wenn Filter
von: helena

Geschrieben am: 12.12.2006 21:51:41
Hallo HAnsueli
also mit CHANGE das funktioniert habe noch ein Problem mit Filter
jetzt kommt Fehler 1004
Sub Filter2()
Dim passwort As Variant
Dim passwort2 As Variant
passwort = InputBox("Bitte Passwort eingeben")
passwort2 = "xxx"
If passwort <> passwort2 Then
MsgBox ("Falsches Passwort!")
Exit Sub
End If
ActiveSheet.Protect userInterfaceOnly:=True
ActiveSheet.EnableAutoFilter = True
Range("A3:AD3").Select
Selection.AutoFilter
ActiveSheet.Protect Password:="xxx"
End Sub

Filter kommt zwar in EIngriff aber es filtert nicht
gruss aus CH
helena
Bild

Betrifft: AW: Worksheet_Change Ereignis sperren wenn Filter
von: EtoPHG

Geschrieben am: 12.12.2006 22:11:03
Hoi Helena,
Also die Logik isch für mich echli undurchsichtig...
Wär's so villicht nüd besser ?
Sub Filter2()
Dim passwort, passwort2 As Variant
passwort2 = "xxx"
passwort = InputBox("Bitte Passwort eingeben")
If passwort <> passwort2 Then
MsgBox ("Falsches Passwort!")
Exit Sub
End If
Range("A3:AD3").AutoFilter
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect userInterfaceOnly:=True, password:=passwort2
End Sub

Es Grüessli
Hansueli
Bild

Betrifft: AW: Worksheet_Change Ereignis sperren wenn Filter
von: helena

Geschrieben am: 12.12.2006 22:17:34
Hallo Hansueli
so gehts jetzt inkl Verriegelung von CHANGE Ereignis
Sub Filter2()
ActiveSheet.Unprotect ("xxx")
Range("A3:AD3").Select
ActiveSheet.Protect userInterfaceOnly:=True
ActiveSheet.EnableAutoFilter = True
Selection.AutoFilter
Range("A1").Select
End Sub

DANKE
gruss helena
Bild

Betrifft: ich hasse SELECT.... o.w.T.
von: EtoPHG
Geschrieben am: 12.12.2006 22:19:38
Bild

Betrifft: AW: ich hasse SELECT.... o.w.T.
von: helena

Geschrieben am: 12.12.2006 23:33:09
Hallo Hansueli
ich eigentlich auch aber wenn man mit MACRORECORDER arbeitet
dann gibt es select ob man will oder nicht in der Regel ist ja nicht das Problem
der Speed von Ablauf sonder Funktion und da kann man denke ich nicht dagegenhalten
mit "NO SELECT" wenns funktioniert.
gruss helena
Bild

Betrifft: so einfach wär's
von: EtoPHG

Geschrieben am: 13.12.2006 11:40:21
Helena,
http://www.online-excel.de/excel/singsel_vba.php?f=78
Hansueli
 Bild
Excel-Beispiele zum Thema "Worksheet_Change Ereignis sperren wenn Filter akti"
Die Ereignisse Zellauswahl, Eingabe und Doppelklick SVERWEIS als Ereignisprozedur
Im Change-Ereignis Eingabe in oder Leeren von Zellen erkennen Makroverzweigung im Change-Ereignis
ComboBox mit Ereigniscode in Tabellenblatt erstellen DoubleClick-Ereignis für alle Arbeitsmappen initialisieren
Begrenzung der Textlänge über Ereignis-Programmierung Beispiele zum Einsatz des SelectionChange-Ereignisses
Dateinamen filtern Summe gefilterter Zeilen