Private Sub Liste_Buerg_Click()
On Error GoTo Err_Liste_Buerg_Click
 
    Dim ex As New Excel.Application
    Dim Zeilenanzahl, Spaltenanzahl As Long
 
    'Worksheets.Add
    'ActiveSheet.Name = "Hilfe"
    'Sheets("Ausfälle").Select
    Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
    ex.Visible = True
    ex.Workbooks.Open "C:\daten\spar\ausfälle_vorlage.xlt"
 
 
    'Zeilen in Hilfs-Tabellenblatt kopieren
    With Worksheets("Ausfälle")
       For i = 1 To Zeilenanzahl - 1
            Rows(i).Copy Destination:=ex.ActiveWorkbook.ActiveSheet.Range("A6" _
              & Sheets("Alles Ausfälle").Cells(Rows.Count, 1).End(xlUp).Row + 1)
       Next i
    End With
 
 
    Exit Sub
Err_Liste_Buerg_Click:
    MsgBox Err.Description
 
End Sub