Option
Explicit
Sub
Bsp01()
Dim
colNamesDist
As
VBA.Collection
Dim
avntNames
As
Variant
Dim
idx
As
Long
Dim
i
As
Long
avntNames = Array(
"Leonberg"
,
"Rutesheim"
,
"Leonberg"
,
"Leonberg"
)
Set
colNamesDist =
New
VBA.Collection
For
i = LBound(avntNames)
To
UBound(avntNames)
On
Error
Resume
Next
idx = 0
idx = colNamesDist(avntNames(i)) + 1
On
Error
GoTo
0
If
idx > 0
Then
Debug.Print avntNames(i) & idx
Call
colNamesDist.Remove(avntNames(i))
Call
colNamesDist.Add(Key:=avntNames(i), Item:=idx)
Else
Debug.Print avntNames(i)
Call
colNamesDist.Add(Key:=avntNames(i), Item:=0)
End
If
Next
Set
colNamesDist =
Nothing
End
Sub