Private Sub Datenanzeige()
   Dim tblPrüfung As Boolean
   Dim SpalGesBreite As Double
   Dim DiffWidth As Double
   tblProduktgruppe = TreeView1.Tag
   sevGrid1.Tag = TreeView1.Tag
'Prüfen, ob für ausgewählten Artikel eine Datentabelle in DB existiert
   tblPrüfung = False
   Call dbTabellenname_prüfen(tblProduktgruppe, tblPrüfung)
'ist Prüfung Wahr wird Abfrage ausgeführt und Tabelle initialisiert
     If tblPrüfung = True Then
'Spalten für Abfrage holen
       Call tblFelder(tblProduktgruppe)
       Set rs.ActiveConnection = ConnProtexArtikel
       rs.CursorLocation = adUseClient
       sSQL = "SELECT " & tblFields & " FROM [" & tblProduktgruppe & "] "
       rs.Open sSQL, ConnProtexArtikel, adOpenKeyset, adLockReadOnly
'Datentabelle initialisieren
          With sevGrid1
            Set .Recordset = rs
            .Width = Me.Width - picture1.Width - 240
            .Height = Me.Height - 880
                For i = 1 To .Cols
                   .DoColumnAutoSize i
                   .Columns(i).MinWidth = TextWidth(.Columns(i).Caption) * 1.2
                   SpalGesBreite = SpalGesBreite + .Columns(i).Width
                   .Columns(i).HeadAlign = ALIGNMENT_CENTER
                   .Columns(i).Align = ALIGNMENT_CENTER
                   .Columns(i).FilterAlign = ALIGNMENT_CENTER
                   If .Columns(i).DataType = dtNumeric Then .Columns( _
                     i).DisplayFormat = "0.00"
                Next i
###############################################################################_
  ################
'Spalten auf Tabellenbreite anpassen
            DiffWidth = (.Width - SpalGesBreite) / .Cols
                For i = 1 To .Cols
                   .Columns(i).Width = .Columns(i).Width + DiffWidth - (.Cols * _
                     4)
                Next i
###############################################################################_
  ################
            .DoSort "Artikel", SORT_ASC
            .Visible = True
            .SetFocus
            .Refresh
            .Row = 1
            ReDim sFilter(.Cols)
         End With
     End If
End Sub