Private Sub cmdSuchen_Click()
'On Error GoTo error
sel_1 = "select * from Erfassung where"
sel_2 = ""
sel_3 = " order by Datum_der_Anfrage asc"
 
If Len(Me.txtdate) > 0 Then
'sel_2 = sel_2 & " format(Datum_der_Anfrage,""dd.mm.yyyy"") like '%" & Me.txtdate.Text & "%'"
sel_2 = sel_2 & " Datum_der_Anfrage like '%" & Me.txtdate.Text & "%'"
End If
 
sel_all = sel_1 & sel_2 & sel_3
 
Me.adodcrekla.RecordSource = sel_all
 
Me.adodcrekla.Refresh
 
MsgBox Me.adodcrekla.Recordset.RecordCount 'hier kommt dann immer die msgbox mit dem wert 0!
 
n = 1
On Error Resume Next
4: ' Verweis auf die Excel-Applikation setzen
5: Set exl = GetObject(, "Excel.Application")
6: If Err.Number <> 0 Then
7: Set exl = CreateObject("Excel.Application")
8: blnRunning = False ' Excel läuft nicht
9: Else
10: blnRunning = True
11: End If
'erstellt Excel-Dokument
 
exl.Workbooks.Add
'Excel-Arbeitsmappe wird hinzugefügt
 
Set sheet = exl.Sheets.Add
sheet.Name = "Suchergebnisse"
 
 
    'Columns("I:K").Select
    'Selection.NumberFormat = "0.00"
 
    'Columns("U:W").Select
    'Selection.NumberFormat = "0.00"
 
Form1.pb1.Value = 0
Form1.pb1.Min = 0
Form1.pb1.Max = Me.adodcrekla.Recordset.RecordCount
Form1.lbl = "Excel-Tabelle wird geschrieben..."
DoEvents
 
 
Do Until Me.adodcrekla.Recordset.EOF
 
Form1.pb1.Value = Form1.pb1.Value + 1
DoEvents
 
If n = 1 Then
    sheet.Cells(n, 1) = "Spalte1"
 
 
      n = n + 1
End If
  
    sheet.Cells(n, 1) = Me.adodcrekla.Recordset.Fields("Datum_der_Anfrage")
 
n = n + 1
Me.adodcrekla.Recordset.MoveNext
Loop
    Rows("1:1").Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 90
        .IndentLevel = 0
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Columns("D").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.AutoFit
    Columns("F:F").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit
    Columns("I:I").EntireColumn.AutoFit
    Columns("J:J").EntireColumn.AutoFit
    Columns("K:K").EntireColumn.AutoFit
    Columns("L:L").EntireColumn.AutoFit
    Columns("M:M").EntireColumn.AutoFit
    Columns("N:N").EntireColumn.AutoFit
    Columns("O:O").EntireColumn.AutoFit
    ActiveWindow.ScrollColumn = 11
    Columns("P:P").EntireColumn.AutoFit
    Columns("Q:Q").EntireColumn.AutoFit
    Columns("R:R").EntireColumn.AutoFit
    Columns("S:S").EntireColumn.AutoFit
    Columns("T:T").EntireColumn.AutoFit
    Columns("U:U").EntireColumn.AutoFit
    Columns("V:V").EntireColumn.AutoFit
    Columns("W:W").EntireColumn.AutoFit
    Columns("X:X").EntireColumn.AutoFit
    Selection.Font.Bold = True
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = "&D &T"
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = "Seite &P von &N"
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.078740157480315)
        .RightMargin = Application.InchesToPoints(0.078740157480315)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.984251968503937)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 1200
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With
 
exl.Visible = True
Form1.lbl = ""
Form1.pb1.Value = 0
 
'error:
'Resume Next
 
End Sub