Public Sub Abfrage_Cor(Optional ByVal e As String = "Fälligkeit ASC")
        Dim Zelle As TableCell
        Dim Zeile As TableRow
        Dim Schaltflaeche111 As Button
 
        Zeile = New TableRow
        Schaltflaeche111 = New Button
        Schaltflaeche111.ID = "Schaltflaeche111"
        Schaltflaeche111.Text = "Kupon"
        Schaltflaeche111.CssClass = "KopfZeileButton111"
 
        AddHandler Schaltflaeche111.Click, AddressOf Me.Schaltflaeche111_Click
 
        Zelle = New TableCell
        Zelle.RowSpan = 2
        Zelle.Width = Unit.Percentage(6)
 
        Zelle.Controls.Add(Schaltflaeche111)
        Zeile.Cells.Add(Zelle)
 
        tblheader.Rows.Add(Zeile)
 
end Sub

    Protected Sub Schaltflaeche111_Click(sender As Object, e As _
      System.EventArgs) 
        Call Abfrage_Cor("Kupon ASC")
    End Sub

            <asp:Table 
            runat="server" 
            id="tblHeader"
            CellPadding= "0"
            CellSpacing="0"
            CssClass="AusgabeTable" />