[gelöst]Problem mit Logischen Operatoren

[surfhai]

Hallo,

ich hab folgenden Code:

Code: Alles auswählen

	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

[surfhai]

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