Danke Dir,
gefällt mir mit der Messagebox.
Hättest Du auch bitte eine Lösung für mein 2. Anliegen?
Ich hab mal einen Code (siehe unten) gebastelt, dass ich alles lösche ab der Zeile, wo in irgendeiner Zelle (A-H
nichts drinnen steht. Aber zu suchen nach einem Inhalt, der mit DICHTELEMNT-SATZ
beginnt und dann die vollen Zeilen darunter markiert und löscht, das krieg ich nicht hin.
Im Folgenden Code springe ich in Spalte E auf die letzte ausgefüllte Zelle, springen eins
runter, markiere dann alle beschrifteten Zeilen und lösche diese.
Range("E2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Range("A" & ActiveCell.Row & ":E" & ActiveCell.Row).Select
Range(Selection, Selection.End(xlDown)).Select
a = MsgBox("Auswahl löschen!", vbYesNo)
If a = vbNo Then Exit Sub Else
Selection.Delete
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP