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
Blau Code beschleunigen
 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
24.04.2018 16:11:34 Clemens
Solved

Ansicht des Beitrags:
Von:
Werner		 Datum:
23.04.2018 14:31:11		 Views:
898		 Rating:
     
Antwort:
  Ja
Thema:
Code beschleunigen

Hallo Clemens,

dann teste mal:

Sub Makro2()
Dim loZeile As Long, loSpalte As Long

'Bildschrimaktualisierung aus
Application.ScreenUpdating = False

'Blattname anpassen
With Worksheets("Tabelle1")
    'Ermitteln der letzten Zeiel
    loZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
    'Prüfen ob Daten vorhanden sind
    If loZeile < 4 Then
        MsgBox "Es sind keine Daten vorhanden."
        Exit Sub
    End If
    'Ermitteln der letzten Spalte
    loSpalte = .Cells(3, .Columns.Count).End(xlToLeft).Column
    'Spalte D nach "Test" und "Muster" filtern
    .Range(.Cells(3, 1), .Cells(loZeile, loSpalte)).AutoFilter Field:=4, Criteria1:="=*Test*", _
    Operator:=xlOr, Criteria2:="=*Muster*"
        'Prüfen ob gefilterte Daten vorhaden sind
        If WorksheetFunction.Subtotal(3, .Range("A3:A" & loZeile)) = 1 Then
            'Wenn nein Meldung
            MsgBox "Suchbegriffe sind nicht vorhanden."
        Else
            'Wenn ja die entsprechenden Zeilen löschen
            With .AutoFilter.Range.Offset(1)
                .Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1).EntireRow.Delete _
                shift:=xlUp
            End With
        End If
    'Autofilter raus
    If .AutoFilterMode Then .AutoFilterMode = False
End With

'Bildschirmaktualisierung an
Application.ScreenUpdating = True
End Sub

 

Gruß Werner

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
Blau Code beschleunigen
 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
24.04.2018 16:11:34 Clemens
Solved