---

Hallo!

Ich möchte in einer Berechnungstabelle einen bestimmten Wert in der Spalte A suchen und alle Zeilen darüber, bzw. einen Wert in Spalte A suchen und alle Zeilen darunter löschen.

Kann mir jemand bitte behilflich sein - Danke!

THX!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,
löscht ohne weitere Nachfrage alle Zeilen vor oder nach dem ersten Auftreten eines einzugebenden Suchbegriffs in Spalte A:

Code:

---

Option Explicit

Sub SearchAndDelete()
    Dim LZA%
    Dim objCell As Range
    LZA = Columns(1).Find("*", [A1], , , xlByRows, xlPrevious).Row
    Set objCell = Columns(1).Find(What:=InputBox("Bitte Suchbegriff angeben", "Suchbegriff"), After:=Cells(Rows.Count, 1))
    If Not objCell Is Nothing Then
        Rows(1 & ":" & objCell.Row - 1).Delete
        'Rows(objCell.Row+1 & ":" & LZA).Delete
    End If
End Sub

---

und wenn gewährleistet ist, dass der Suchbegriff vorh. ist, reicht sogar jeweils eine Zeile:

Code:

---

Sub SAD()
Rows(Columns(1).Find(What:=InputBox("Bitte Suchbegriff angeben", "Suchbegriff"), After:=Cells(Rows.Count, 1)).Row + 1 & ":" & Columns(1).Find("*", [A1], , , xlByRows, xlPrevious).Row).Delete
'Rows(1 & ":" & Columns(1).Find(What:=InputBox("Bitte Suchbegriff angeben", "Suchbegriff"), After:=Cells(Rows.Count, 1)).Row - 1).Delete
End Sub

---

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ohne VBA, per Tastatur

Strg + F - Suchbegriff eingeben - Enter bringt Dich zum Treffer
Pfeil nach oben/Pfeil nach unten-Taste (je nachdem, ob Du darüber oder darunter löschen möchtest)
Strg + Shift + Pfeil-Taste, ggf. Pfeil-Taste 2x, 3x, ... drücken markiert aktive Spalte bis zum nächsten Block bzw. bis zum Ende
Shift + Leertaste markiert sämtliche zugehörigen Zeilen
Entf

Kommt darauf an, die Daten auf Deinem Register organisiert sind, evtl. ist dieser Weg etwas umständlich. Wie oft wird's benötigt?

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke - funzt perfekt!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP