Array and Funktion und zurueck
12.03.2004 19:26:07
Tobi
ich habe ein Array, das ich an eine Funktion uebergebe, dort gefuellt wird, die Funktion beendet wird und ich dann das Arrey auslese. ich bekomme aber "Infalid Qualifier" als Fehlermeldung bei der Stelle MyNumber(e).Value
Hier ist ein Auszug aus dem Program.
Public Function program_a(WkbName As String, FileName, gstrPath As String)
Dim File
Dim i As Integer, e As Integer, j As Integer, k As Integer, col As Integer, ANRow As Integer, ANCol As Integer
Dim CLA As String, DAT As String, Direction As String
Dim MyNumber(255) As Integer
Call fill_MyNumbers(e, j, WkbName, MyNumber())
Public Function fill_MyNumbers(ByRef e As Integer, ByRef j As Integer, WkbName As String, MyNumber() As Integer)
With Workbooks(WkbName).Sheets("Availability")
ANCol = 3
If .FlightNR.Value = True Then 'if checkbox is true
ANRow = 16
j = 0
While .Cells(ANRow, ANCol).Value <> ""
e = 0
While MyNumber(e).Value <> 0
If MyNumber(e) = .Cells(ANRow, ANCol).Value Then
GoTo Exist11:
End If
e = e + 1
Wend