ich versuche in einer Spalte für mich belanglose Zeilen automatisch zu löschen. Aktuell habe ich quasi nur den letzten Teil meines Vorhabens erfolgreich umgesetzt:
https://www.herber.de/bbs/user/142539.xlsm
Sub Loeschefind()
Dim varY As String
Cells.Find(what:="Tabellenende").Activate
varY = ActiveCell.Row
If Not IsError(varY) Then Rows(varY & ":" & Rows.Count).Delete
End Sub
Hier löscht mir das Makro alle Zeilen bis zur Zeile mit dem gewünschten Suchbegriff. Wenn jedoch alles gelöscht ist und dieser Suchbegriff somit nicht mehr in der Tabelle vorhanden ist, dann spuckt mir Excel den Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt.
1. Wie krieg ich diesen Fehler weg? Wenn es den Suchbegriff nicht mehr gibt kann von mir aus eine Nachricht kommen, oder nichts passieren...aber Fehler ist unschön.
2. Wie lösche ich die Zeilen zwischen zwei Suchbegriffen? Also in diesem Fall von "Tabelle Start" (Zeile 6) bis "Ab hier fangen die Daten an" (Zeile 9)?
In den Zellen befindet sich Text und die Suchbegriffe stehen nicht alleine in der Zelle, aber immer in bekannter Weise am Anfang der Zelle.
Für Hilfe wäre ich sehr dankbar
Gruß
sbr