Makro erweitern
07.06.2007 17:05:00
Cordula
gestern hat mir Franz folgendes Makro geschrieben, welches auch so funktioniert. Nun möchte ich noch eine Ergänzung, aber Franz ist heute wohl nicht online, so dass er mir leider nicht antworten kann. Da ich dieses Problem aber noch heute gelöst haben möchte, bitte ich euch um Hilfe.
Sub Zeile_weg_wenn()
Dim Suche As Variant
Dim z As Long, lz As Long, i As Long
Application.ScreenUpdating = False
Suche = Application.InputBox("Suchbegriff eingeben!", "Suche", "Basis_122")
If Not Suche = False Then 'Abbrechen wurde nicht gewählt
z = ActiveSheet.UsedRange.Row
lz = z + ActiveSheet.UsedRange.Rows.Count - 1
If MsgBox("Zellen mit Begriff in Spalte A: " & Suche & " wirklich löschen?", vbOKCancel, _
"Zellen mit Suchbegriff löschen") = vbOK Then
For i = lz To z Step -1
If Cells(i, 1) = Suche Then
Cells(i, 1).Delete shift:=xlShiftUp
End If
Next
End If
End If
Application.ScreenUpdating = True
End Sub
Jetzt soll der Code ergänzt werden auf: Ist der gesuchte Wert nicht vorhanden, soll eine Meldung erscheinen mit der Option"Wiederholen" "Abbrechen".
Bin dankbar für jede Lösung.
Liebe Grüße
Cordula