Private Sub WareListe_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
  Dim dropText As String
  AllowedEffects = vbDropEffectCopy Or vbDropEffectMove
  dropText = WareListe.Text(WareListe.Row, 3)
  Data.SetData , vbCFText
  Data.Files.Add dropText
 
End Sub