Hallo Zusammen,

Das Makro schaut in eine definierte Zelle. In der Zelle "wi.Row(foundValue.Row).Columns("H"),0)" steht entweder ein "T" oder ein "K" oder beides drin. Dies beiden Buchstaben, stehen für Prüfungen. 
Wenn in der Zelle ein "T" steht, soll die FUntion Exam01 ausgeführt werden. Bei ein "K, die Funtion "Exam02". Wenn "t" und "K" stehen, dann sollen
beide Funtionen Examin01 und Examin02 nacheinander ausgeführt werden.

Wo ich hänge ist, dass wenn die Array gefunden wurde "T" oder "K", dass das makro in die jeweilige Funktion springt. Und ist es auch möglich, dass
wenn beide T und K steht, beide Funktionen nacheinander aufgerufen werden?

Danke EUch


Sub Examine()
 
Dim t As Integer
Dim Regel as Variant
Dim RegelArray(1) as Variant

 Set ws = Worksheets("R")
 Set wt = Worksheets("G")
 Set wi = Worksheets("R")
 
RegelArray(1)= ("T,K")

 t = 2
 
 
 Do
       For Each cell In ws.Range("A" & t)
       Set foundValue = wi.Range("A1:A75").Find(cell.Value)
           If Not foundValue Is Nothing Then
               For Each Regel in RegelArray
                       If IsInArray(RegelArray, wi.Row(foundValue.Row).Columns("H"),0)=True
....
....
          
   
Funtion IsInArray(ValToBeFound as Variant, arr as Variant) as Boolean
   IsInArray=(UBoound(Filter(arr, ValToBeFound)))
End Funtion

 
Function Exam01(ByVal t as Long, ByVal ws as Worksheet) as Boolean 
E01 = True
If ws.Range("B" & t).Value = 0 Then E01 = False
End If
End Function


Function Exam02(ByVal t as Long, ByVal ws as Worksheet) as Boolean 
E02 = True
If ws.Range("B" & t).Value > 30 Then E02 = False
End If
End Function