Private Sub dateneinlesen(Datum_von As SelectionRange, Datum_bis As _
   SelectionRange)
 
        Dim dt As New DataTable
        dt.Columns.Add("Datum_von", GetType(DateTime))
        dt.Columns.Add("Datum_bis", GetType(DateTime))
 
        For r As Integer = 0 To dt.Rows.Count - 1
            If Not IsDBNull(dt.Rows(r)("Datum_von")) Then
 
                kalender_1.SelectionRange = Datum_von
                kalender_1.SelectionRange = Datum_bis
 
            End If
     end sub