Private Sub sevGridPreislisten_CellClick(ByVal nRow As Long, ByVal nCol As _
  Long, ByVal Button As Integer, ByVal Shift As Integer)
    cmdExcelEinlesen.Caption = "PL wird geladen"
 
    txtPreislistenPath.Text = sevGridPreislisten.Recordset.Fields( _
      "Koi_PreislistenPath") & ""
    txtPreislistenArt.Text = sevGridPreislisten.Recordset.Fields( _
    "Koi_Preislistenart") & ""
 
    DatenGridAktualisieren
    End Sub