OpenOffice.info

Verfasst: **Mi, 31.05.2006 14:41**

Hallo,

ich hab folgenden Code:

	For i = 0 To oDoc.Sheets.getCount - 1
		If oDoc.Sheets(i).Name <> "Auswertung" AND oDoc.Sheets(i).Name <> "Vorlage" Then
			ReDim Preserve aSheets(i) As Integer
			aSheets(i) = i
		End If
	Next i

Wenn "Auswertung" oder "Vorlage" der Sheet.Name ist soll es nicht ins Array mit aufgenommen werden. Aber irgendwie scheint es nicht zu klappen.

Gruß Thorsten

Verfasst: **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

OpenOffice.info

[gelöst]Problem mit Logischen Operatoren

[gelöst]Problem mit Logischen Operatoren