22.08.2019, 14:48
(22.08.2019, 14:20)WillWissen schrieb: [ -> ]Hi,
hast du denn rechts den Button "Attachment hinzufügen" angeklickt?
Nein, den hatte ich übersehen. :30:
Ist bearbeitet, Danke
(22.08.2019, 14:20)WillWissen schrieb: [ -> ]Hi,
hast du denn rechts den Button "Attachment hinzufügen" angeklickt?
Sub Vergleich()
For j = 2 To 15
For i = 0 To 100 Step 5
If (Cells(j, 2) >= (i - 2.5)) And (Cells(j, 2) < (i + 2.5)) And (Cells(j, 1) < (i + 2.5)) And (Cells(j, 1) > (i - 2.5)) Then
Cells(j, 3) = i
Exit For
ElseIf (Cells(j, 2) >= (i - 7.5)) And (Cells(j, 2) < (i + 7.5)) And (Cells(j, 1) < (i + 2.5)) And (Cells(j, 1) > (i - 2.5)) Then
Cells(j, 3) = "halt"
Exit For
ElseIf (Cells(j, 2) >= (i - 2.5)) And (Cells(j, 2) < (i + 2.5)) And (Cells(j, 1) < (i + 7.5)) And (Cells(j, 1) > (i - 7.5)) Then
Cells(j, 3) = i
Cells(j, 4) = i + 5
Exit For
Else
Cells(j, 3) = "Das war nix"
End If
Next i
Next j
End Sub
Function compare_own2(max, min)
For i = 0 To 100 Step 5
If (min >= (i - 2.5)) And (min < (i + 2.5)) And (max < (i + 2.5)) And (max > (i - 2.5)) Then
Exit For
ElseIf (min >= (i - 7.5)) And (min < (i + 7.5)) And (max < (i + 2.5)) And (max > (i - 2.5)) Then
Exit For
ElseIf (min >= (i - 2.5)) And (min < (i + 2.5)) And (max < (i + 7.5)) And (max > (i - 7.5)) Then
compare_own2 = i + 5
Exit For
End If
Next
End Function