ok du willst wissen ob in dem array irgendwo die 1 steht oder an 1. stelle array(1)?
die sub geht?
array(1)=1 steht bei "'Das Array wird mit Werten gefüllt "?
dann sollte das program gehen
wenn du wissen willst ob ein ein bestimmter wert überhaupt im array vorhanden ist dann mus du noch eine Zählschleife drum rum machen
edit: war noch ein fehler drin jetzt sollte es gehen
Declare Sub AuszuführenderSub()
Dim Array(256) As Integer 'Diesmal mit zwei R^
Dim var as integer

'Das Array wird mit Werten gefüllt
...
....
For var=1 to 256
If Array(var) = 1 Then
dein auszuführendes ereigniss oder die sub
End If
next ' next var oder nur next weis ich grad nicht ganz sicher