Now hi...

i got a little problem in my VB Script...
i have to find the most frequently cell (string) in a single row:

ex:
( | x | <-- a cell)

| Pete | Pete| Tom | Pete | Joe | Joe | Joe | Pete | Frank |

= Pete 4 times; Tom 2 times; Joe 3 times; Frank 1
function returns: "Pete"

the problem is, that i don't really know how many cells in a row ther
are...
i tried to solve it like this, but this doesn't work out... (i als
know why... and now searching for another solution...)


Private Function Referenzstring() As String

Dim zaehler(1 To 100) As Integer
Dim werte(1 To 100) As String
Dim i As Integer
Dim j As Integer
Dim addcounter As Integer
Dim Count As Integer

werte(1) = Worksheets(1).Cells(CurrentRow, 1).FormulaLocal
addcounter = 1
zaehler(1) = 1

'doesn't workk.. other solution required...
For j = 1 To intSpaltenCount - 1
For i = 1 To intSpaltenCount - j
If StrComp(Worksheets(1).Cells(CurrentRow, i
j).FormulaLocal, werte(j)) Then
zaehler(j) = zaehler(j) + 1
Else
addcounter = addcounter + 1
zaehler(i + j) = zaehler(i + j) + 1
werte(i + j) = Worksheets(1).Cells(CurrentRow, i
j).FormulaLocal
End If
Next i
Next j
#

i = 1
For j = 2 To addcounter
If zaehler(i) < zaehler(j) Then
i = j
End If
Next j

Referenzstring = werte(i)

End Function


--
Message posted from http://www.ExcelForum.com