Public
Sub
Test()
Dim
loZeile
As
Long
, loLetzte
As
Long
, loSuche
As
Double
loSuche = 0.01
With
Worksheets(
"Tabelle1"
)
On
Error
GoTo
errhandler
loZeile = WorksheetFunction.Match(loSuche, .Range(
"K:K"
), 0)
loLetzte = .Cells(.Rows.Count, 9).
End
(xlUp).Row
.Range(.Cells(loZeile + 1, 9), .Cells(loLetzte, 11)).ClearContents
.Range(.Cells(8, 9), .Cells(loZeile, 11)).Copy _
Worksheets(
"Tabelle2"
).Cells(1, 1)
End
With
Exit
Sub
errhandler:
On
Error
GoTo
0
MsgBox
"Suchbegriff "
& loSuche &
" nicht gefunden."
End
Sub