Nächster Winkel im Kreis finden
07.04.2020 09:41:25
Sebastian
Eigentlich schreib ich gerade ein Programm in einer anderen Programmiersprache, nutze aber das Beispiel aus einem anderen Forum als Vorlage.
Allerdings steh ich gerade etwas auf dem Schlauch, da ich das Beipeil unten für Winkelangaben _ erweitern muss. Für reine Zahlen funktioniert das, allerdings habe ich einen Kreis und da kann die 359 an der 0 näher liegen, als an der 355.
Dim Suchwinkel As Long
Dim Winkelliste As Range
Dim Zelle As Range
Dim erg As Integer
Dim gefWinkel As Long
Suchwinkel = WorksheetFunction.RoundUp(Worksheets(1).Cells(1, 1), 0)
gefWinkel = 0
Set Winkelliste = Worksheets(2).Range("B3:B12")
For Each Zelle In Winkelliste
If Suchwinkel >= Zelle And gefWinkel Die jetzige Variante gibt mir die nächstgelegen Zahl zurück.