VBA-Code ändern - brauche Hilfe!!!
03.02.2005 00:00:09
Bernd
bin in VBA nicht grad der Held, deshalb meine Frage:
Kann mir jemand den Excel-VBA-Code so umschreiben, daß ich nicht einen Suchtext eingeben muß, sondern der höchste Inhalt in Spalte A beginnend mit "32*" (ist immer 5-stellig!) automatisch gesucht wird!
Der Rest soll bleiben, d. h. es sollen alle Zeilen unter dem gesuchten Inhalt gelöscht werden.
Code:
Sub LoescheZeilenDarunter()
Dim Suchwert
Suchwert = InputBox("Wonach suchen?")
If Len(Suchwert) > 0 Then
On Error Resume Next
Rows(Columns("A").Find(What:=Suchwert, _
After:=Range("A1"), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False) _
.Offset(1, 0).Row _
& ":" & Cells(Rows.Count, "A").End(xlUp).Row).Delete
End If
End
Sub
Vielen Dank schon im voraus
Gruss
Bernd