Option
Explicit
Public
Sub
Test()
Dim
WkSh
As
Worksheet
Dim
rZelle
As
Range
Dim
sFundst
As
String
Dim
astrNames()
As
String
Dim
ialngIndex
As
Long
Set
WkSh = ThisWorkbook.Worksheets(
"Start"
)
With
WkSh.Range(
"b3:b30"
)
Set
rZelle = .Find(What:=
True
, LookAt:=xlWhole, LookIn:=xlValues)
If
Not
rZelle
Is
Nothing
Then
sFundst = rZelle.Address
Do
Debug.Print rZelle.Address
ReDim
Preserve
astrNames(ialngIndex)
As
String
astrNames(ialngIndex) = rZelle.Offset(0, -1).Value
ialngIndex = ialngIndex + 1
Set
rZelle = .FindNext(After:=rZelle)
Loop
Until
rZelle.Address = sFundst
Else
MsgBox
"Bitte einen anderen Wert wählen"
End
If
End
With
MsgBox Join$(SourceArray:=astrNames(), Delimiter:=vbCr)
End
Sub