Zeile löschen
04.11.2004 15:44:40
Franz
brauche bitte noch mal eure Hilfe, es geht mal wieder um die Formulierung: ich suche per UF eine bestimmte Zeile in einer Tabelle und möchte diese löschen:
Sub SatzLoeschen
sSearch = Me.TextBox1
For Each wks In Worksheets
If wks.Name <> "Help" Then
With wks
If .Range("A65536") = "" Then lastRow = .Range("A65536").End(xlUp).Row Else lastRow = 65536
Set Found = .Range("A4:A" & lastRow).Find(sSearch, LookIn:=xlValues)
With .Range(Found.Row)
.Delete
End With
End With
End If
Next
End Sub
Ich kriege die richtige Formulierung für ".Range(Found.Row)" nicht hin, hab schon verschiedenes versucht. Bei obiger Formulierung kommt die Meldung: "Die Methode Range ... ist fehlgeschlagen."
Wie muss das bitte richtig heißen?
Danke schon mal und Grüße
Franz