Hallo Ihr Lieben,
Die funktion vergleich einen wert (e.g. 100) im sheet ws B2 mit den werte im sheet wm B2. Wenn die übereinstimmen,
wird der Wert im sheet wh in C2 diesmal heranagezogen und so weiter. Die anzahl wieviel mal dieser Wert 100 im sheet wh
in der reihe 2 vorkommen darf, ist im sheet ws C2 festgelegt. D.h. wenn C2=3 heisst das, dass der Wert 100 der im sheet wh
in B2 gefunden wurde, nur dreimal hintereinander auftretten darf, also in B2, C2 und D2.DIe Prüfung beinhaltet aber, dass eine verletzung
vorliegt, wenn dieser wert nicht 3 mal sondern 4 mal aufeinanderfolgent kontinuierlich auftritt z.b von B2 bis E2 ($ reihen hintereinander).
Was ich nicht ganz hinkriege ist ist die funktion, dass das Makro, wenn so ein match gefundne wurde in sheet
wh B2 anfängt jeden einzelnen Wert im sheet wh angefangen von B2 in den vergleich reinzieht, bis die erlaube anzahl
dass dieser wert hintereinander vorkommen darf, erreicht ist.
Ich habe das mal mit der "count" funktion versucht. Aber ihne erfolg
Function P_P01(ByVal t,k As Long, ByVal ws As Worksheet, ByVal wi As Worksheet, ByVal wh As Worksheet, ByVal cell As Variant) As Boolean
P_P01 = False
Set foundValue = wh.Range("A1:A75").find(cell)
If Not foundValue Is Nothing Then
If ws.Range("B" & t).Value = wh.Rows(foundValue.Row).Columns("B").Value Then
Do
Count (ws.Range("B" & t).Value = ws.Range("B" & t).Value = wh.Rows(foundValue.Row).Columns("K").Value)
Loop Until count > wi.Rows(foundValue.Row).Columns("L").Value ' hier loopt man, bis die zahl im "count" > als die Zahl in column("L")
Else: MsgBox "..."
End If
Else: MsgBox "..."
End If
End Function
|