Sub GetNameOfAllSheets(NameOfSheets())

Die Prozedur gibt ein Array mit den Namen der Sheets zurück

Der Aufruf erfolgt über:

    dim listall()

    GetNameOfAllSheets(listall())

Sub GetNameOfAllSheets(NameOfSheets())

    Dim oDoc as Object

    Dim oSheets as Object

    Dim oSheet as Object

    Dim i as integer

    Dim iAnzahl as integer

    oDoc = CurrentComponent

    oSheets=odoc.sheets

    Anzahl = oSheets.count

    Anzahl = Anzahl - 1

    Redim NameOfSheets(Anzahl)

    For i = 0 to Anzahl

       oSheet = oDoc.Sheets(i)

       NameOfSheets(i)=oSheet.name

    Next

End Sub