Private Sub flePunkteEditieren_EnterCell()
    ' Ein direktes Editieren der Zelle im flePunkteEditieren ist nicht möglich.
    ' Daher wird über die ausgewählte Zelle ein Textfeld positioniert,
    ' das den Inhalt der Tabellenzelle erhält und somit editiert werden kann.
    If Me.Tag = "0" Then
        iRow = flePunkteEditieren.Row
        iCol = flePunkteEditieren.Col
        With txtPunkteEditieren
            .Left = flePunkteEditieren.CellLeft + flePunkteEditieren.Left
            .Top = flePunkteEditieren.CellTop + flePunkteEditieren.Top - 20
            .Height = flePunkteEditieren.CellHeight
            .Width = flePunkteEditieren.ColWidth(iCol)
            .Text = flePunkteEditieren.TextArray(iRow * flePunkteEditieren.Cols _
              + iCol)
            .Visible = True
            .SetFocus
        End With
    End If
End Sub