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:
613
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

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 genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

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