Thema Datum  Von Nutzer Rating
Antwort
26.02.2016 18:32:11 Thomas
NotSolved
26.02.2016 19:42:04 Gast83497
NotSolved
26.02.2016 20:44:32 Thomas
NotSolved
Blau Filter läuft nicht
26.02.2016 21:50:05 Gast12214
NotSolved
27.02.2016 11:20:05 Thomas
NotSolved
27.02.2016 13:01:51 Gast25700
NotSolved
27.02.2016 18:15:29 Thomas
NotSolved
27.02.2016 20:13:03 Gast81730
NotSolved
28.02.2016 09:48:37 Thomas
NotSolved
28.02.2016 17:18:17 Gast76347
NotSolved

Ansicht des Beitrags:
Von:
Gast12214		 Datum:
26.02.2016 21:50:05		 Views:
1738		 Rating:
     
Antwort:
  Ja
Thema:
Filter läuft nicht

Das mit dem Code ging schon - suchen und ersetzen haben das schon passen gemacht.

Also Filter 1 und 2 werden ja immmer angewendet (auch wenn das kopieren der Seite nur bei Treffern erfolgt). Lediglich Filter 3 hängt von 1 und 2 ab. Also müsste man nur prüfen, ob 1 oder 2 liefen - wobei das eigentlich auch hinfällig wäre, da ja 1 oder 2 immer einmal einen Treffer hat. Also müssten eigentlich nur alle 3 Filter hintereinander laufen und nicht in einer if then else. Habe es jetzt aber mal mit der Prüfung gemacht. Die Zeilenumbrüche habe ich gelöscht. Jeder Filter läuft für sich.  VG

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Dim eins As Boolean
Dim zwei As Boolean
 
eins = False
zwei = False
 
Application.ScreenUpdating = False
 
With Worksheets("Master")
'Filter 1
.Range("A:AAA").AutoFilter Field:=9, Criteria1:="=Bonn", Operator:=xlOr, Criteria2:="=Bonn"
     
If .Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
    eins = True
     
    For i = 10 To 21 ' J bis U
        With Worksheets("Verteiler_Vorlage")
        .Visible = True
        .Copy After:=Sheets(Sheets.Count)
        .Visible = False
        End With
    Next
     
End If
   
'Filter 2
.Range("A:AAA").AutoFilter Field:=9, Criteria1:="=Berlin", Operator:=xlOr, Criteria2:="=Berlin"
     
If .Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
    zwei = True
    For i = 10 To 21 ' J bis U
        With Worksheets("Verteiler_Vorlage")
        .Visible = True
        .Copy After:=Sheets(Sheets.Count)
        .Visible = False
        End With
    Next
End If
 
'Filter 3 in Abhängigkeit
If eins = True Or zwei = True Then
    .Range("A:AAA").AutoFilter Field:=9, Criteria1:="=Augsburg"
    If .Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
        For i = 17 To 19 ' Q bis S
            With Worksheets("Verteiler_Vorlage")
            .Visible = True
            .Copy After:=Sheets(Sheets.Count)
            .Visible = False
            End With
            Next
    End If
End If 'Prüfung ob Filter 1 oder 2
 
End With 'Worksheets("Master")
 
Application.ScreenUpdating = True

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.02.2016 18:32:11 Thomas
NotSolved
26.02.2016 19:42:04 Gast83497
NotSolved
26.02.2016 20:44:32 Thomas
NotSolved
Blau Filter läuft nicht
26.02.2016 21:50:05 Gast12214
NotSolved
27.02.2016 11:20:05 Thomas
NotSolved
27.02.2016 13:01:51 Gast25700
NotSolved
27.02.2016 18:15:29 Thomas
NotSolved
27.02.2016 20:13:03 Gast81730
NotSolved
28.02.2016 09:48:37 Thomas
NotSolved
28.02.2016 17:18:17 Gast76347
NotSolved