Dim i As Integer
Dim Summe As Integer
Dim SuchWort As String
 
Summe = 0
i = 1
Do while Tabelle1.Cells(i,1) <> ""
If Tabelle1.Cells(i,1) = SuchWort then
Summe = Summe + 1
end if
i = i + 1
DoEvents
Loop

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD