Thema Datum  Von Nutzer Rating
Antwort
Rot Filter "durchblättern" mit zweitem gesetzten Filter
 07.07.2016 06:42:08 Louis
NotSolved
07.07.2016 08:38:18 Gast74447
NotSolved
07.07.2016 09:12:36 Gast57429
NotSolved
07.07.2016 16:35:23 Louis
NotSolved
07.07.2016 21:45:07 Gast81639
NotSolved
08.07.2016 07:11:00 Gast59957
NotSolved
08.07.2016 07:44:47 Louis
NotSolved
08.07.2016 07:46:36 Gast25169
NotSolved
08.07.2016 07:51:24 Gast74217
NotSolved
08.07.2016 13:27:28 Louis
NotSolved
08.07.2016 13:47:52 Gast77320
NotSolved
11.07.2016 08:00:05 Louis
NotSolved
11.07.2016 10:55:07 Gast27104
NotSolved
11.07.2016 14:25:51 Louis
NotSolved
11.07.2016 14:58:49 Gast84214
NotSolved
11.07.2016 15:40:35 Louis
NotSolved
11.07.2016 16:36:31 Gast92593
NotSolved
12.07.2016 07:03:30 Louis
NotSolved
12.07.2016 17:18:13 Gast33847
NotSolved
13.07.2016 08:26:53 Gast4203
NotSolved
13.07.2016 08:33:31 Gast19552
NotSolved
13.07.2016 17:55:45 Louis
NotSolved
13.07.2016 18:19:21 Gast8122
NotSolved
14.07.2016 07:24:23 Louis
NotSolved
15.07.2016 01:28:16 Gast82029
NotSolved
15.07.2016 11:04:10 Gast40590
NotSolved
15.07.2016 12:36:39 Gast72783
NotSolved
17.07.2016 23:24:59 Gast91690
NotSolved
20.07.2016 13:37:47 Louis
NotSolved

Ansicht des Beitrags:
Von:
Louis		 Datum:
07.07.2016 06:42:08		 Views:
2088		 Rating:
     
Antwort:
  Ja
Thema:
Filter "durchblättern" mit zweitem gesetzten Filter

Einen wunderschönen guten Morgen wünsch ich :)

Durch eure Hilfe habe ich es ja geschafft durch meine Filter der Spalte A mit Hilfe der Makros durchzublättern und auch wieder zum ersten Eintrag zu springen (anbei der Code). 

Jetzt bräuchte ich noch die Möglichkeit in einer anderen Spalte einen FIlter setzen zu können und dann durch die übrigen zu blättern.

Zurzeit ist es noch so, dass wenn ich ein anderen Filter setze und beginne mit den makros durch die Filter der Spalte A zu tippen, fliegt der zurerst gesetzte Filter wieder raus.

Danke im vorraus für eure Hilfe!

Viele Grüße Louis

?
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
57
58
59
60
61
62
63
64
65
66
Dim stelle As Long
    
Sub filter_zurück()
Dim liste()
ReDim liste(0)
stelle = stelle - 1
If ActiveSheet.AutoFilterMode = True Then Range("Auftragsliste").AutoFilter
  
'Zeile 1 ist Übeschrift
For i = 3 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    'MsgBox liste.contains(Cells(i, 1))
    If UBound(Filter(liste, CStr(ActiveSheet.Cells(i, 1)), , vbBinaryCompare)) = -1 Then
        liste(0) = liste(0) + 1
        ReDim Preserve liste(liste(0))
        liste(liste(0)) = CStr(ActiveSheet.Cells(i, 1))
    End If
Next
    
If stelle = -1 Then stelle = UBound(liste)
  
If stelle = 0 Then
    Exit Sub
End If
    
   
Range("Auftragsliste").AutoFilter
Range("Auftragsliste").AutoFilter Field:=1, Criteria1:=Replace(liste(stelle), ",", ".")
  
End Sub
    
    
Sub filter_vor()
Dim liste()
ReDim liste(0)
stelle = stelle + 1
If ActiveSheet.AutoFilterMode = True Then Range("Auftragsliste").AutoFilter
  
'Zeile 1 ist Übeschrift
For i = 3 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    'MsgBox liste.contains(Cells(i, 1))
    If UBound(Filter(liste, CStr(ActiveSheet.Cells(i, 1)), , vbBinaryCompare)) = -1 Then
        liste(0) = liste(0) + 1
        ReDim Preserve liste(liste(0))
        liste(liste(0)) = CStr(ActiveSheet.Cells(i, 1))
    End If
Next
 Debug.Print stelle
   
  
    
If stelle > UBound(liste) Then
stelle = 0
Exit Sub
End If
  
Range("Auftragsliste").AutoFilter
Range("Auftragsliste").AutoFilter Field:=1, Criteria1:=Replace(liste(stelle), ",", ".")
    
End Sub
  
Sub erster()
If ActiveSheet.AutoFilterMode = True Then Range("Auftragsliste").AutoFilter
stelle = 1
Range("Auftragsliste").AutoFilter
Range("Auftragsliste").AutoFilter Field:=1, Criteria1:=Replace(CStr(ActiveSheet.Cells(3, 1)), ",", ".")
End Sub

 

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
Rot Filter "durchblättern" mit zweitem gesetzten Filter
 07.07.2016 06:42:08 Louis
NotSolved
07.07.2016 08:38:18 Gast74447
NotSolved
07.07.2016 09:12:36 Gast57429
NotSolved
07.07.2016 16:35:23 Louis
NotSolved
07.07.2016 21:45:07 Gast81639
NotSolved
08.07.2016 07:11:00 Gast59957
NotSolved
08.07.2016 07:44:47 Louis
NotSolved
08.07.2016 07:46:36 Gast25169
NotSolved
08.07.2016 07:51:24 Gast74217
NotSolved
08.07.2016 13:27:28 Louis
NotSolved
08.07.2016 13:47:52 Gast77320
NotSolved
11.07.2016 08:00:05 Louis
NotSolved
11.07.2016 10:55:07 Gast27104
NotSolved
11.07.2016 14:25:51 Louis
NotSolved
11.07.2016 14:58:49 Gast84214
NotSolved
11.07.2016 15:40:35 Louis
NotSolved
11.07.2016 16:36:31 Gast92593
NotSolved
12.07.2016 07:03:30 Louis
NotSolved
12.07.2016 17:18:13 Gast33847
NotSolved
13.07.2016 08:26:53 Gast4203
NotSolved
13.07.2016 08:33:31 Gast19552
NotSolved
13.07.2016 17:55:45 Louis
NotSolved
13.07.2016 18:19:21 Gast8122
NotSolved
14.07.2016 07:24:23 Louis
NotSolved
15.07.2016 01:28:16 Gast82029
NotSolved
15.07.2016 11:04:10 Gast40590
NotSolved
15.07.2016 12:36:39 Gast72783
NotSolved
17.07.2016 23:24:59 Gast91690
NotSolved
20.07.2016 13:37:47 Louis
NotSolved