Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.04.2018 10:29:50 |
Clemens |
|
|
|
23.04.2018 11:01:45 |
Werner |
|
|
|
23.04.2018 13:34:12 |
Gast70848 |
|
|
Code beschleunigen |
23.04.2018 14:31:11 |
Werner |
|
|
|
23.04.2018 15:13:41 |
Clemens |
|
|
|
23.04.2018 15:17:16 |
Clemens |
|
|
|
24.04.2018 12:06:08 |
Werner |
|
|
|
24.04.2018 16:11:34 |
Clemens |
|
|
Von:
Werner |
Datum:
23.04.2018 14:31:11 |
Views:
609 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
23.04.2018 11:01:45 |
Werner |
|
|
|
23.04.2018 13:34:12 |
Gast70848 |
|
|
Code beschleunigen |
23.04.2018 14:31:11 |
Werner |
|
|
|
23.04.2018 15:13:41 |
Clemens |
|
|
|
23.04.2018 15:17:16 |
Clemens |
|
|
|
24.04.2018 12:06:08 |
Werner |
|
|
|
24.04.2018 16:11:34 |
Clemens |
|
|