Hilfe zu EnableEvents!!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christoph,

werde ich gleich mal ausprobieren.
Mein Code sieht wie folgt aus und befindet sich in einem Standardmodul. Ich rufe es in dem Calculate Ereignis nur noch auf.

Sub AlleFiltern()
Dim TB As Worksheet
Dim lstMonate(), Monat As String, wksAktive As Worksheet
Dim i As Integer, j As Integer, k As Integer
Dim intF As Integer

Application.DisplayAlerts = False

Set wksAktive = ActiveSheet

k = 0
'Monate (Tabellen) auslesen, ausser die aktive
For i = 1 To Sheets.Count
For j = 1 To 12
If InStr(Sheets(i).Name, Format(DateValue("1." & j & ".2002"), "MMMM")) > 0 And _
Sheets(i).Name <> wksAktive.Name Then
ReDim Preserve lstMonate(k)
lstMonate(k) = Sheets(i).Name
k = k + 1
End If
Next
Next

'hier wird in jeder anderen Tabelle der Autofilter gesetzt
For i = 0 To UBound(lstMonate)
Monat = lstMonate(i)
For intF = 1 To wksAktive.Autofilter.Filters.Count
Select Case intF
Case 1 To 5
'Application.EnableEvents = False
If wksAktive.Autofilter.Filters(intF).On = True Then
Worksheets(Monat).Range("A5:S5").Autofilter Field:=intF, _
Criteria1:=wksAktive.Autofilter.Filters(intF).Criteria1 ', Operator:=xlAnd
'Application.EnableEvents = True
Else
Worksheets(Monat).Range("A5:S5").Autofilter Field:=intF
'Application.EnableEvents = True
End If
End Select
Next intF
Next i
Application.DisplayAlerts = True
End Sub

Hoffe du kannst damit was anfangen!

Gruß Jeanne

Hallöchen Christoph,

danke, das du dir so viel Mühe mit mir gibts!!!

Nachfolgend der Code:

Private Sub Worksheet_Calculate()
Dim lstMonate(), strKriteria as String
Dim wksFiltern , wksAktive As Worksheet
Dim i As Integer, j As Integer, k As Integer
Dim intF As Integer

Application.DisplayAlerts = False

Set wksAktive = ActiveSheet

k = 0
'Monate (Tabellen) auslesen
For i = 1 To Sheets.Count
For j = 1 To 12
If InStr(Sheets(i).Name, Format(DateValue("1." & j & ".2002"), "MMMM")) > 0 And _
Sheets(i).Name <> wksAktive.Name Then
ReDim Preserve lstMonate(k)
lstMonate(k) = Sheets(i).Name
k = k + 1
End If
Next
Next

For i = 0 To UBound(lstMonate)
Set wksFiltern = Worksheets(lstMonate(i))
For intF = 1 To wksAktive.Autofilter.Filters.Count
Select Case intF
Case 1 To 5
If wksAktive.Autofilter.Filters(intF).On = True Then
strKriteria = wksAktive.Autofilter.Filters(intF).Criteria1

'Bis hier ist alles OK, sobald er den Filter setzten will, lande ich wieder am Anfang

Worksheets(Monat).Range("A5:S5").Autofilter Field:=intF, Criteria1:=strKriteria
Else
Worksheets(Monat).Range("A5:S5").Autofilter Field:=intF
End If
End Select
Next intF
Next i
Application.DisplayAlerts = True
End Sub

Vielleicht sieht du ja den Fehler, mit fällt nichts mehr ein.

Bis denne Jeanne

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread