Thema Datum  Von Nutzer Rating
Antwort
23.04.2018 10:29:50 Clemens
NotSolved
23.04.2018 11:01:45 Werner
NotSolved
23.04.2018 13:34:12 Gast70848
NotSolved
23.04.2018 14:31:11 Werner
NotSolved
23.04.2018 15:13:41 Clemens
NotSolved
23.04.2018 15:17:16 Clemens
NotSolved
24.04.2018 12:06:08 Werner
NotSolved
Blau Code beschleunigen
 24.04.2018 16:11:34 Clemens
Solved

Ansicht des Beitrags:
Von:
Clemens		 Datum:
24.04.2018 16:11:34		 Views:
565		 Rating:
     
Antwort:
 Nein
Thema:
Code beschleunigen

Hallo Werner, 

Das war wohl ein Fehler auf meiner Seite, habe es nochmal versucht und der Code läuft anständig durch! Ich habe mittels der Autofilter Funktion auch eine Möglichkeit gefunden den Code nochmal zu beschleunigen indem ich mir die Formatierung als Tabelle zunutze mache. Da werde ich jetzt noch deine Ideen mit der Abfrage ob Daten vorhanden sind und entsprechende Message Boxen einbauen.

Sub test2()

    Dim rng As Range
    Dim i As Long

    With ThisWorkbook.ActiveSheet.ListObjects(1)
        .Range.AutoFilter
        .Range.AutoFilter Field:=.ListColumns("Portfld").Index, _
            Criteria1:="=*Test*", Operator:=xlOr, Criteria2:="=*Muster*"
        .Range.Offset(1).EntireRow.Delete
        .Range.AutoFilter
    End With
        
End Sub

Nochmal ein herzliches Dankeschön für die ganze Mühe, das hat mir enorm geholfen! 

Schöne Grüße 
Clemens

 

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
23.04.2018 10:29:50 Clemens
NotSolved
23.04.2018 11:01:45 Werner
NotSolved
23.04.2018 13:34:12 Gast70848
NotSolved
23.04.2018 14:31:11 Werner
NotSolved
23.04.2018 15:13:41 Clemens
NotSolved
23.04.2018 15:17:16 Clemens
NotSolved
24.04.2018 12:06:08 Werner
NotSolved
Blau Code beschleunigen
 24.04.2018 16:11:34 Clemens
Solved