VBA schreiben - Zeile nach Wert durchsuchen und dann löschen und nachrücken

[HadeLaaan]

Hallo!

Ich bin mittlerweile am verzweifeln, da ich gefühlt 15 Wege ausprobiert habe & nichts funktioniert bzw. zum Ziel führt.

Folgende Problemstellung:

Tabelle mit Erhebungswerten, aus der einige Zeilen gelöscht werden sollen. 
Dies soll per geschriebenem VBA Makro geschehen, da ein aufgezeichnetes mit den immer mal wieder veränderten Abständen und mehr/weniger Zeilen etc. nicht klarkommt.

Demnach soll die Tabelle nach bspw. REPORTFILTER durchsucht werden (nur in Spalte A) & die gesamte Zeile daraufhin gelöscht werden.
Bestenfalls wird REPORTFILTER (119) ebenfalls erkannt und gelöscht. (Aufbau siehe Attachment)

Versucht habe ich es bisher beispielsweise mit:

Sub DeleteReportfilter ()
     Dim rng As Range, i As Integer
     Set rng = ("A1:A100")
     For i = rng.Rows.Count To 1 Step -1
        If rng.Cells (i) .Value = "REPORT" Then rng.Cells(i) .EntireRow.Delete
     Next
End Sub

Fragen: Wieso nimmt es das nicht an? Würde es hierbei theoretisch bei REPORT auch REPORTFILTER* erkennen? (auch schon mit REPORTFILTER eingesetzt versucht, klappte auch nicht)
Habt ihr bessere/ schönere herangehensweisen?

Hilfsspalte mit ZählenWenn etc. habe ich auch schon ausprobiert.

Sorry falls es hierzu schon Threads gibt, habe mich durchgeschaut und einiges ausprobiert, aber nichts davon funktioniert.

Vielen Dank euch schon mal & genießt das Wetter!
Michi

[Klaus-Dieter]

Hallo,

verbundene Zellen sind schon mal Murks. Wenn du nach Report suchst, sollte da auch Report stehen und nicht Reportfilter oder ähnliches.

[NobX]

Hallo HadeLaan,

versuche es mal damit, - hat bei mir funktioniert:

Code:

Sub DeleteReportfilter()

Dim lz As Long
Dim lzletzte As Long

With Tabelle1
lzletzte = 20
For lz = lzletzte To 1 Step -1
If .Cells(lz, 1).Value Like "*Report*" Then
.Rows(lz).EntireRow.Delete
lngZz = lngZz + 1
End If
Next lz
End With
MsgBox lngZz & " Zeilen mit dem Begriff -Report- wurden gelöscht"
End Sub

Musst Du halt noch anpassen an Deine Tabelle und an die Anzahl Zeilen (im Beispiel bis Zeile 20), oder bis zum Ende der benutzten Zeilen zählen lassen. 

Grüße

Norbert

[HadeLaaan]

Hallo Klaus-Dieter, 

ich kann's leider nicht ändern - so wird das ganze ausgespuckt. 
Wenn es so leicht zu ändern wäre, würde ich an der Quelle ansetzen und mir diesen "Reportfilter" gar nicht erst mit ausgeben lassen.
Aber so ist es eben.

Hallo NobX,

vielen Dank dir!
Leider klappt's nicht. 
Keine Zeilen werden gelöscht.

Viele Grüße,
HadeLaaan

[HadeLaaan]

Hallo!

Ich habe mittlerweile etwas gefunden, womit es läuft.
Dies zieht auch bei "Reportfilter", "Reportfilter_123", xyz.


_______________________________________________________
Sub Reportfilter_Löschen()
Dim rng As Range
    Dim pos As Integer
    Set rng = ActiveSheet.UsedRange
   
    For i = rng.Cells.Count To 1 Step -1
        pos = InStr(LCase(rng.Item(i).Value), LCase("Reportfilter"))
        If pos > 0 Then
            rng.Item(i).EntireRow.Delete
        End If
    Next i
End Sub

________________________________________________________


VG!