title image


Smiley Re: Fehler seihen mir verziehen.
Zweite Möglichkeit. Fehler seihen mir verziehen.







array1 = Array(4, 5, 84, 91, 99) ' Falsch

'array1 = Array(4, 5, 84, 91) ' Wahr

array2 = Array(1, 4, 5, 80, 81, 82, 83, 84, 85, 91)

Dim elem, gesucht, found As Boolean

Dim i As Integer, j As Integer, maxj As Integer

maxj = UBound(array2)

i = 0

For Each gesucht In array1

    found = False

    For j = i To maxj

        If gesucht = array2(j) Then

            found = True

            Exit For

        End If

    Next

    i = j ' Da das Array sortiert ist müssen wir nicht mehr bei 0 beginnen

Next

MsgBox "Enthalten: " & found





Code eingefügt mit Syntaxhighlighter 4.0




Gruss Uwe
Wenn weise Maenner nicht irrten, müssten die Narren verzweifeln. (Goethe)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: