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
|