Dim Text As String
    Dim a, b As Long
    MSHFlexGrid1.Col = 0
    For a = 1 To MSHFlexGrid1.Rows - 1 'die Zahlen
        MSHFlexGrid1.Row = a
        MSHFlexGrid1.Text = a
    Next a
    MSHFlexGrid1.Row = 0
    MSHFlexGrid1.Col = 0
    MSHFlexGrid1.Text = "a"
    'A = 65 
    'Z = 90
    For a = 1 To MSHFlexGrid1.Cols - 1
        MSHFlexGrid1.Col = a - 1
        Text = MSHFlexGrid1.Text
        MSHFlexGrid1.Col = a
        'If b = 0 Then c = 1 Else
        b = Int((a + 64 * Len(Text) + Len(Text) - 1) / 91)
            'If b = c And Not gea Then
        MSHFlexGrid1.Text = Chr$(64 + b)
        If b = 0 Then MSHFlexGrid1.Text = vbNullString
        MSHFlexGrid1.Text = MSHFlexGrid1.Text & Chr$(64 + a - b * 26)
    Next a
    MSHFlexGrid1.Row = 0
    MSHFlexGrid1.Col = 0
    MSHFlexGrid1.Text = vbNullString
    MSHFlexGrid1.Col = 1
    MSHFlexGrid1.Row = 1