Thema Datum  Von Nutzer Rating
Antwort
Rot Filter läuft nicht
26.02.2016 18:32:11 Thomas
NotSolved
26.02.2016 19:42:04 Gast83497
NotSolved
26.02.2016 20:44:32 Thomas
NotSolved
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:
Thomas		 Datum:
26.02.2016 18:32:11		 Views:
2820		 Rating:
     
Antwort:
  Ja
Thema:
Filter läuft nicht
Hallo leider habe ich den Thread zu schnell geschlossen.
Daher neu eröffnet
 
 
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
Application.ScreenUpdating = False
With Worksheets("Master")
.Range("A:AAA").AutoFilter Field:=9, Criteria1:="=Bonn", _
Operator:=xlOr, Criteria2:="=Bonn"
   
If .Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
   
   For i = 10 To 21 ' J bis U
      With Worksheets("Verteiler_Vorlage")
      .Visible = True
      .Copy After:=Sheets(Sheets.Count)
      .Visible = False
      End With
 
NEXT
 
Else
Application.ScreenUpdating = False
With Worksheets("Master")
.Range("A:AAA").AutoFilter Field:=9, Criteria1:="=Berlin", _
Operator:=xlOr, Criteria2:="=Berlin"
   
If .Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
   
   For i = 10 To 21 ' J bis U
      With Worksheets("Verteiler_Vorlage")
      .Visible = True
      .Copy After:=Sheets(Sheets.Count)
      .Visible = False
      End With
 
NEXT
 
With Worksheets("Master")
.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

Also ich haber hier den ersten Filter dann läuft der Code und erstellt mir einzelne Sheets, dann kommt der 2 Filter der erstellt wieder Sheets, und dann der 3 Filter, und wieder werden Sheets erstellt.

Nun soll das aber so ablaufen, das Wenn Filter 1 Daten Code laufen + Filter 3 wenn Filter 1 keine Daten dann Filter 2 und Filter 3, wenn Filter 1 und 2 Daten haben dann nur 1x 3.

Wenn alle Daten vorhanden funktioniert das prima, aber wenn Filter 1 oder 2 Leer sind dann funktioniert das mit Filter 3 nicht richtig.

 

LG

Thomas

 

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:



  • 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
Rot Filter läuft nicht
26.02.2016 18:32:11 Thomas
NotSolved
26.02.2016 19:42:04 Gast83497
NotSolved
26.02.2016 20:44:32 Thomas
NotSolved
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