in Spalte nach Wort suchen,Zeile+Zeile darüber lös

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: in Spalte nach Wort suchen,Zeile+Zeile darüber lös
von: braun
Geschrieben am: 01.07.2015 11:09:11

Guten Tag,
ich benötige einen Makro Code, der in Spalte A nach einem Wort sucht, diese Zeile komplett löscht + die Zeile darüber löscht.
Per Suchfunktion bin ich leider nicht fündig geworden. Kann mir jemand helfen?
Vielen Dank im Voraus!
Karin

Bild

Betrifft: AW: in Spalte Wort suchen,Zeile+Zeile darüber lös
von: JoWE
Geschrieben am: 01.07.2015 12:05:38
Hallo Karin,

Private Sub delRow()
    Dim sb As String
    sb = InputBox("Bitte Suchort eingeben", "Parameterabfrage")
    Rows(Cells.Find(sb).Row - 1 & ":" & Cells.Find(sb).Row).Delete
End Sub

Gruß
Jochen

Bild

Betrifft: AW: in Spalte Wort suchen,Zeile+Zeile darüber lös
von: braun
Geschrieben am: 01.07.2015 14:48:31
Hi Jochen,
Geht das auch Inputbox? Das Wort bleibt immer gleich. Vielen Dank :)

Bild

Betrifft: AW: in Spalte Wort suchen,Zeile+Zeile darüber lös
von: JoWE
Geschrieben am: 01.07.2015 17:56:38
klar, schreibe sb = "hier Dein Wort"

 Bild

Beiträge aus den Excel-Beispielen zum Thema "in Spalte nach Wort suchen,Zeile+Zeile darüber lös"