GetNameOfAllSheets

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