Habs gelöst, war nur dumm wie Scheiße .. :-/
Public Sub set_VerticalOffset_From_ScrollViewer(ByVal VerticalOffset As Double)
' --- interne Variablen Deklaration --- '
Dim iCount As Integer = 0
Try
If Not VisualTreeHelper.GetChildrenCount(DataGrid) = 0 Then
Do While iCount < VisualTreeHelper.GetChildrenCount(DataGrid)
If TypeOf (VisualTreeHelper.GetChild(DataGrid, iCount)) Is Border Then
Dim Border As Border = VisualTreeHelper.GetChild(DataGrid, iCount)
If Not VisualTreeHelper.GetChildrenCount(Border) = 0 Then
If TypeOf (VisualTreeHelper.GetChild(Border, iCount)) Is ScrollViewer Then
Dim ScrollViewer As ScrollViewer = VisualTreeHelper.GetChild(Border, iCount)
If ScrollViewer IsNot Nothing Then
ScrollViewer.ScrollToVerticalOffset(VerticalOffset)
End If
End If
End If
End If
iCount = iCount + 1
Loop
End If
Catch ex As Exception
Fehlerbehandlung = New Fehlerbehandlung
Fehlerbehandlung.Fehlermeldung = ex
Fehlerbehandlung.ShowDialog()
End Try
End Sub
