Private Sub berechne_stichwort()
'berechne, wieviel stichwörter vorhanden sind
Dim i As Long
Dim ad As Long
 
'#######################mein kläglicher VERSUCH, die STICHWÖRTER 
'MIT HEUTIGEM DATUM ZU ZÄHLEN :-(
 
For i = 1 To Grid1.Rows
  If search_word(Text4.Text, i) <> 0 Then ad = ad + 1
  If search_word(Text4.Text, 0) = 0 Then Exit For
Next
 
Text3.Text = "ANZAHL DER SUCHWÖRTER " & ad
End Sub
 
Private Function search_word(stichwort As String, row As Long)
Dim i As Integer
Dim suchwort As Long
Dim datum As Variant
datum = Format(Date, "yyyy.mm.dd")
 
suchwort = Grid1.FindItem("*" & Trim$(stichwort) & "*", 0, row, False)
Select Case suchwort
 
    Case 0
       ' MsgBox "suchwort nicht enthalten"
 
    Case Is <> 0
 
    If Grid1.Text(suchwort, 11) = datum Then
    search_word = suchwort
    Else
    search_word = 0
    End If
 
End Select
End Function