<code>Public Function ItemExists(Grid As Control, ByVal strItemText As String, _
  ByVal lngCol As Long) As Long
 
  Dim lngCurRow As Long
  Dim lngCurCol As Long
 
  ItemExists = -1
 
  With Grid
    <font color=green>' Aktuelle Position im Grid "merken"</font>
    lngCurRow = .Row
    lngCurCol = .Col
 
    <font color=green>' Grid vom Anfang bis Ende in der x. Spalte 
    ' durchsuchen</font>
    .Col = lngCol
    For I = 0 To .Rows - 1
      .Row = I
      If .Text = strItemText Then
        ItemExists = I: Exit For
      End If
    Next I
 
    <font color=green>' alte Position wiederherstellen</font>
    .Row = lngCurRow
    .Col = lngCurCol
  End With
End Function