von surfhai » Mi, 31.05.2006 15:08
Hab es inzwischen durch rumprobieren selbst herausfinden können.
Code: Alles auswählen
i2 = 1
For i = 0 To oDoc.Sheets.getCount - 1
If Abs(oDoc.Sheets(i).Name <> "Auswertung" AND oDoc.Sheets(i).Name <> "Vorlage") Then
ReDim Preserve aSheets(i2) As Integer
aSheets(i2 - 1) = i
i2 = i2 + 1
End If
Next i
Gruß Thorsten
Hab es inzwischen durch rumprobieren selbst herausfinden können.
[code] i2 = 1
For i = 0 To oDoc.Sheets.getCount - 1
If Abs(oDoc.Sheets(i).Name <> "Auswertung" AND oDoc.Sheets(i).Name <> "Vorlage") Then
ReDim Preserve aSheets(i2) As Integer
aSheets(i2 - 1) = i
i2 = i2 + 1
End If
Next i[/code]
Gruß Thorsten