Thema Datum  Von Nutzer Rating
Antwort
15.09.2017 11:13:44 Nick
NotSolved
15.09.2017 12:16:34 Gast3475
NotSolved
15.09.2017 12:54:49 Nick
NotSolved
15.09.2017 13:01:00 Gast3475
NotSolved
15.09.2017 13:17:08 Nick
NotSolved
15.09.2017 13:34:33 Gast43567
NotSolved
15.09.2017 13:38:06 Nick
NotSolved
15.09.2017 22:23:41 Gast91637
NotSolved
Rot Tabellenblätter nacheinander nach filtern und Zeilen mit ungleichem Suchbegriff löschen
 17.09.2017 01:49:56 Gast67852
NotSolved
18.09.2017 09:03:16 Nick
NotSolved
18.09.2017 22:02:31 Gast67852
NotSolved
18.09.2017 10:07:39 Gast74140
NotSolved

Ansicht des Beitrags:
Von:
Gast67852		 Datum:
17.09.2017 01:49:56		 Views:
678		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenblätter nacheinander nach filtern und Zeilen mit ungleichem Suchbegriff löschen

Hallo,

hab noch was, mußt mal testen:

Option Explicit

Public Sub test2()
 Const START_CHAR As Long = 64
 Dim lngIndex As Long, lngCount As Long
 Application.DisplayAlerts = False
 With ThisWorkbook
     lngCount = .Worksheets.Count
     For lngIndex = 1 To lngCount
         With .Worksheets(lngIndex)
             If .ListObjects.Count = 1 Then
               With .ListObjects(1).Range
                   Call .AutoFilter(Field:=2, Criteria1:= _
                        "<>" & Chr$(START_CHAR + lngIndex), Operator:=xlAnd)
                   With .SpecialCells(Type:=xlCellTypeVisible)
                       If lngIndex > 1 Then
                           With .Areas(1)
                                Call Range(.Rows(2), .Rows(.Rows.Count)).Delete
                           End With
                       End If
                       If lngIndex < lngCount Then Call .Areas(2).Delete
                   End With
                   Call .AutoFilter(Field:=2)
               End With
             End If
         End With
     Next
 End With
 Application.DisplayAlerts = True
End Sub

Gruß,

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
15.09.2017 11:13:44 Nick
NotSolved
15.09.2017 12:16:34 Gast3475
NotSolved
15.09.2017 12:54:49 Nick
NotSolved
15.09.2017 13:01:00 Gast3475
NotSolved
15.09.2017 13:17:08 Nick
NotSolved
15.09.2017 13:34:33 Gast43567
NotSolved
15.09.2017 13:38:06 Nick
NotSolved
15.09.2017 22:23:41 Gast91637
NotSolved
Rot Tabellenblätter nacheinander nach filtern und Zeilen mit ungleichem Suchbegriff löschen
 17.09.2017 01:49:56 Gast67852
NotSolved
18.09.2017 09:03:16 Nick
NotSolved
18.09.2017 22:02:31 Gast67852
NotSolved
18.09.2017 10:07:39 Gast74140
NotSolved