AW: ganze Zeile löschen mit VAriable
17.11.2008 14:10:36
angeldust
Hi Hajo,
sorry wegen der Gestalltung des Beitrags,
hmm könnte ich die Funktion test auch so ummodeln, dass sie einen string übergeben bekommt und die Zeilennummer also an int zurückgibt?
Public Sub test(eingabe as String)
' erstellt von Hajo.Ziplies@web.de 12.04.03
Dim Found As Range
Dim LoLetzte As Long
Dim sSearch As String
sSearch = eingabe
If sSearch = "" Then Exit Sub
LoLetzte = IIf(IsEmpty(Range("C65536")), Range("C65536").End(xlUp).Row, 65536)
Set Found = Range("C1:C" & LoLetzte).Find(sSearch, Range("C" & LoLetzte), , xlPart, , _
xlNext)
' kompletter Vergleich und Inhalt
' Set Found = .Range(.Cells(2, 10), .Cells(5753, 10)).Find(ActiveSheet.Cells(I, 54), _
' .Cells(5753, 10), xlValues , xlWhole, , xlNext)
If Found Is Nothing Then Exit Sub 'falls nicht gefunden wird sub verlassen
MsgBox Found.Address
End Sub
hmmm am Ende müsste etwas mit zurückgabe...
Danke
MfG
angeldust