Private Sub sevGridPflegeliste_CellDblClick(ByVal nRow As Long, ByVal nCol As _
  Long)
    With sevGridPflegeliste
        If "Wenn Maus focus auf Grid in der Spalte 1" Then
            gldRowZeileAktuell = sevGridPflegeliste.Row
            frmTexteBearbeiten.Show
            frmTexteBearbeiten.txtArtikelNr.Text = _
              sevGridPflegeliste.Recordset.Fields("Artikelnr")
            frmTexteBearbeiten.cmdTextLaden_Click
            frmTexteBearbeiten.SetFocus
 
        ElseIf "Wenn Maus focus auf Grid in der Spalte 2" Then
 
        ElseIf "Wenn Maus focus auf Grid in der Spalte 3" Then
 
 
        End If
    End With
End Sub