VBA Zeilen mit versch. Suchbegriffen löschen

Hallo zusammen,
eine monatliche Auswertung Tabellenblatt Dauer (Daten stammen von Access-Export) soll bestimmte Datensätze NICHT einbeziehen.
Deshalb müssen alle Zeilen gelöscht werden, die in Spalte C bestimmte (Teil-) Strings aufweisen.
Die auszuschließenden Begriffe sind im Tabellenblatt NICHT in einer Liste, die sich immer wieder ändert
z.B. in Spalte A - "ist gleich":
DE50
DE100
bzw. in Spalte B - "like":
Kühlaggregat
ummy
ntwicklung
Die Listen sind um einiges länger, deshalb meine Frage:
Kann man hieraus Arrays bilden und die entsprechenden Zeilen in Blatt Dauer löschen?
Das Makro könnte zum Beispiel in Spalte H bei jedem Treffer ein x oder 1 eintragen und am Schluss die entsprechenden Zeilen löschen ?!?
Ich möchte den gesamten Ablauf automatisieren, damit auch die KollegInnen die Auswertung fahren können.
Kleine Basteldatei:
https://www.herber.de/bbs/user/113725.xlsm
Danke schon jetzt für eine Lösung :-)
Gruß, Margarete

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim txt As String txt = Sheets("Nicht").Cells(1, 1).CurrentRegion.Columns(1).Address(1, 1, xlR1C1) With Sheets("Dauer").UsedRange With .Columns(.Columns.Count + 1) .Cells(2, 1).FormulaArray = "=IF(SUM(COUNTIF(RC3,NICHT!" & txt & ")),0,ROW())" .Cells(2, 1).Copy .Resize(.Rows.Count - 2).Offset(2, 0).PasteSpecial xlPasteFormulas .Cells(1, 1).Value = 0 Debug.Print .Column .Parent.UsedRange.RemoveDuplicates .Column, xlNo .ClearContents End With End With End Sub

Hallo Margarete,
so die Version mit x markieren, kann aber auch mit löschen erweitert werden


Option Explicit
Sub Saeubere()
Dim igleich As Long
Dim ienthaelt As Long
Dim iletzte As Long
Dim wksDauer As Worksheet
Dim wksNicht As Worksheet
Dim lD As Long
Set wksDauer = ThisWorkbook.Sheets("Dauer")
Set wksNicht = ThisWorkbook.Sheets("NICHT")
igleich = BestimmeLetzteZeile(wksNicht, 1)
ienthaelt = BestimmeLetzteZeile(wksNicht, 2)
iletzte = BestimmeLetzteZeile(wksDauer, 1)
For lD = 2 To iletzte
Call EntferneGleich(lD, wksDauer, wksNicht, igleich, 8)
Call EntferneEnthaelt(lD, wksDauer, wksNicht, ienthaelt, 8)
Next lD
End Sub
Function BestimmeLetzteZeile(ByVal wks As Worksheet, ByVal s As Integer) As Long
BestimmeLetzteZeile = wks.Cells(wks.Rows.Count, s).End(xlUp).Row
End Function
Function EntferneGleich(ByVal lD As Long, ByVal wksS As Worksheet, ByVal wksD As Worksheet,  _
ByVal llast As Long, ByVal iSpalte As Integer)
Dim i As Long
For i = 2 To llast
If wksS.Cells(lD, 3).Value = wksD.Cells(i, 1).Value Then
wksS.Cells(lD, iSpalte).Value = "x"
End If
Next i
End Function
Function EntferneEnthaelt(ByVal lD As Long, ByVal wksS As Worksheet, ByVal wksD As Worksheet,  _
ByVal llast As Long, ByVal iSpalte As Integer)
Dim i As Long
For i = 2 To llast
If InStr(1, wksS.Cells(lD, 3).Value, wksD.Cells(i, 2).Value, vbTextCompare)  0 Then
wksS.Cells(lD, iSpalte).Value = "x"
End If
Next i
End Function

Gruß
yummi

Beliebteste Forumthreads (12 Monate)

VBA Zeilen mit versch. Suchbegriffen löschen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

338 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Zeilen mit versch. Suchbegriffen löschen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

338 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread