'----------------------------------------------------
'Wenn in die Tabelle "V-Mat-Kunde suchen" geklickt wird:
'----------------------------------------------------
Sub TabelleVMatKundeSuchen_SelectionChanged (ColName, Row)
VMatAusbuchenAnKundenNummer.Text = TabelleVMatKundeSuchen.Cell ("KD-Nr.", TabelleVMatKundeSuchen.SelectedRow)
VMatAusbuchenAnKunde.Text = TabelleVMatKundeSuchen.Cell ("Kunde", TabelleVMatKundeSuchen.SelectedRow)
VMatAusbuchen.Show
End Sub
'----------------------------------------------------