Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim x, y As Integer
        Dim Spanz, temp As String
        Timer1.Start()
 
 
        Excel = New Excel.Application()
        EXMappe = Excel.Workbooks.Add()
        EXBlatt = EXMappe.ActiveSheet
        Spanz = 0
        y = 2
 
        Button1.Cursor = Cursors.WaitCursor
 
 
 
        Label1.Visible = True
 
        For x = 0 To CheckedListBox1.Items.Count - 1
            If CheckedListBox1.GetItemChecked(x) = True Then
                Spalte1 = CheckedListBox1.Items(x).ToString
                EXBlatt.Cells(1, Spanz + 1).Value = Spalte1
                EXBlatt.Cells(1, Spanz + 1).Interior.Colorindex = 15
 
 
                temp = Spanz
                Spanz = Spanz + 1
                SQL = "Select " & Spalte1 & " from Videoliste"
                rs1 = db1.OpenRecordset(SQL)
 
                While Not rs1.EOF
                    If y - 2 = Video.lblMax.Text Then y = 2
                    If rs1(EXBlatt.Cells(1, temp + 1).Value).Value Is _
                      DBNull.Value Then
                        rs1.Edit()
                        rs1(EXBlatt.Cells(1, temp + 1).Value).Value = ""
                        rs1.Update()
                    End If
                    EXBlatt.Cells(y, temp + 1).Value = Trim(rs1(EXBlatt.Cells( _
                      1, temp + 1).Value).Value)
                    y = y + 1
                    rs1.MoveNext()
                End While
            End If
        Next
 
        With EXBlatt.Rows("1:1").Font
            .Name = "Arial Black"
            .Size = 12
            .TintAndShade = 0
        End With
 
 
        EXBlatt.Columns.AutoFit()
        Button1.Cursor = Cursors.Default
 
        Excel.Visible = True
 
 
        Label1.Visible = False
 
 
    End Sub

Gruss Caddy