Hallo zusammen,
ich habe in einem Excel-Blatt einen Bereich als UsedRange definiert. Jetzt möchte ich diesen Bereich durchlaufen und nach einem bestimmten Suchwort verkleinern. Mein Code hierfür sieht wie folgt aus:
iCount = 1
Worksheets("Liste").Activate
Set rngNeu = ActiveWorkbook.Worksheets("Liste").UsedRange
For Each rngNeu In ActiveWorkbook.Worksheets("Liste").Range("A:A")
If rngNeu.Cells.Value = "Suchwort" Then
Set rngNeu = rngNeu.Offset(iCount, 0)
Set rngNeu = rngNeu.Resize(rngNeu.Rows.Count - iCount, rngNeu.Columns.Count - 0)
Else
iCount = iCount + 1
End If
Next
rngNeu.Select
Leider erhalte ich immer den Fehler "Anwendungs- oder objektdefinierter Fehler" in der zweiten Set-Zeile der If-Verzweigung. Hat jemand einen Rat?
Danke und Gruß |