- #1
B
Bernd S
Guest
Hallo,
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 beginnend mit 32* (ist immer 5-stellig!) 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
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 beginnend mit 32* (ist immer 5-stellig!) 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