Option Explicit
 
Private cArrStrRowsFormat() As String            'Feld mit Namen der 
' Zeilen-FormatTypen
'...
'...
'...
Public Property Get RowsFormat() As Variant
    Set RowsFormat = cArrStrRowsFormat()
End Property
 
Public Property Set RowsFormat(ByRef ArrStrRowsFormat() As String)
   Set cArrStrRowsFormat = ArrStrRowsFormat
End Property