Sub
Ort_bestimmen()
Dim
rng
As
Range
Dim
sFirstAdress
As
String
loDeinWert = UserFormSearch.Ort.Value
Set
rng = Worksheets(
"Kunden"
).Range(
"H:H"
).Find(loDeinWert)
If
rng
Is
Nothing
Then
MsgBox
"Wert "
& loDeinWert &
" nicht gefunden!"
Else
sfirstaddress = rng.Address
Do
rng.EntireRow.Copy
Worksheets(
"Tabelle2"
).Cells(Rows.Count,
"A"
).
End
(xlUp) _
.Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Set
rng = Worksheets(
"Kunden"
).Range(
"H:H"
).FindNext(rng)
Loop
While
Not
rng
Is
Nothing
And
rng.Address <> sfirstaddress
End
If
End
Sub