With Grid1
        ' autom. Neuzeichnen des DataGrids unterbinden
        .LockUpdate True 'zuvor true
        .FilterMoveTAB = True
 
        ' Erweiterte Eigenschaften
        .RowHeight = 15
 
        .AllowColumnClick = True
        .AllowColumnSizing = True
        .AllowDelete = True
        .AllowEdit = True
        .AllowMultiSelect = True
        .AllowColumnReorder = True
        .AutoSort = True
        .AutoUpdate = True
        .CheckBoxStyle = 2 ' XP-Style
        .ShowSortSymbols = True
        .AutoRefreshVScroll = True
 
        .ColumnHeaderFont.name = "Tahoma"
        .Font.name = "Tahoma"
        .FooterFont.name = "Tahoma"
        .FilterFont.name = "Tahoma"
 
        .CaptionVisible = True
        .Caption = "Abladeort-Liste"
        .CaptionFont.name = "Arial"
        .CaptionFont.Bold = True
        .CaptionFont.Size = 12
        .CaptionHeight = 32
 
       .ColumnHeaderFont.name = "Tahoma"
       .Font.name = "Tahoma"
       .FooterFont.name = "Tahoma"
       .FilterFont.name = "Tahoma"
 
       ' Nach Name sortieren
       .DoSort "datum", 1
 
       ' Breite der feststehenden Spalte
       .FixedColWidth = 600
 
       ' Wheelmaus-Unterstützung aktivieren
       .WheelMouse = True
 
       ' Neuzeichnen des DataGrids wieder aktivieren
       .LockUpdate False
       .Refresh
       .row = 1
 
 
    End With