Dim x, y As Integer
        Dim Spanz, temp As String
 
        Label1.Text = "Daten werden exportiert." & vbLf & "Das kann je nach" & _
          "Datenbankgrösse einige Minuten dauern." & vbLf & "Bitte warten"
 
        Excel = New Excel.Application()
        EXMappe = Excel.Workbooks.Add()
        EXBlatt = EXMappe.ActiveSheet
        Spanz = 0
        y = 2

Gruss Caddy