Worksheet_Change Ereignis sperren wenn Filter akti

• Worksheet_Change Ereignis sperren wenn Filter akti von helena vom 12.12.2006 21:04:12
• AW: Worksheet_Change Ereignis sperren wenn Filter - von EtoPHG am 12.12.2006 21:25:42
  • Worksheet_Change Ereignis sperren wenn Filter - von helena am 12.12.2006 21:51:41
    • AW: Worksheet_Change Ereignis sperren wenn Filter - von EtoPHG am 12.12.2006 22:11:03
      • AW: Worksheet_Change Ereignis sperren wenn Filter - von helena am 12.12.2006 22:17:34
        • ich hasse SELECT.... o.w.T. - von EtoPHG am 12.12.2006 22:19:38
          • AW: ich hasse SELECT.... o.w.T. - von helena am 12.12.2006 23:33:09
            • so einfach wär's - von EtoPHG am 13.12.2006 11:40:21

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

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

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

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

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

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

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

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

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