Hallo zusammen,
ich versuche schon Tage lang auf eine Lösung zu kommen, doch mir gelingt es nicht.
Das Beispiel inklusive Erklärung befindet sich im Anhang.
Vielleicht kann mir hier jemand helfen.
LG. HM1001 :19:
Hallo zusammen,
ich versuche schon Tage lang eine Lösung auf mein Problem zu finden, doch ich komme nicht drauf.
Das Beispiel inkl. Erklärung befindet sich im Anhang
Vielen Dank!
HM1001
Hallo,
nach wenigen Umformungen stimmten die Formeln meistens, aber nicht immer mit der Vorlage überein. Gibt es da eine Erklärung?
Code:
HW RW
Sektor 1 von 2266735,75 -308630,81
Sektor 2 von 2267229,34 -308542,53
Sektor 3 von 2267342,72 -308272,23
Sektor 4 von 2267433,12 -308121,54
Sektor 5 von 2267601,78 -307189,08
HW: =VERGLEICH(H8;$W$6:$W$10;1)
RW: =VERGLEICH(J8;$X$6:$X$10;1)
Das kann man auch recht einfach nach VBA übertragen.
mfg
Hallo,
der Ansatz mit =Vergleich() geht nur, sofern die Segment-Grenzen in einer Reihe sind. Bis auf eine Ausnahme sind sie es, aber die Ausnahme erfordert einen anderen Ansatz.
Ohne 5 x 2 Ober- und Untergrenzen einzeln abzufrage wird es nicht gehen. Um es übersichtlicher zu mache, teste ich mit 5 "case val1 to vl2" und 5 weiteren if-Abfragen.
mfg
Hallo,
ein neuer Versuch: auch nach diversen Verwechslungen koonnte ich ich vorgaben nicht komplett nachvollziehen. Bei einzelnen Überprüfungen war ich der Meinung, dass die Beispiel-Auswertung nicht immer mit der Tabelle der Grenzen übereinstimmt.
Einen anderen Weg habe ich nicht gefunden:
Code:
Sub iFen2()
Dim S As Integer
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
S = 0
If Cells(i, "H") > 2266735.75 And Cells(i, "H") < 2267229.34 And _
Cells(i, "J") > -308630.81 And Cells(i, "J") < -308542.53 Then S = 1
If Cells(i, "H") > 2267229.34 And Cells(i, "H") < 2267342.72 And _
Cells(i, "J") < -308272.23 And Cells(i, "J") > -308542.53 Then S = 2
If Cells(i, "H") > 2267342.72 And Cells(i, "H") < 2267433.12 And _
Cells(i, "J") > -308272.23 And Cells(i, "J") < -308121.54 Then S = 3
If Cells(i, "H") > 2267433.12 And Cells(i, "H") < 2267601.78 And _
Cells(i, "J") > -308121.54 And Cells(i, "J") < -307189.08 Then S = 4
If Cells(i, "H") > 2267429.43 And Cells(i, "H") < 2267601.78 And _
Cells(i, "J") < -305921.74 And Cells(i, "J") > -307189.08 Then S = 5
Cells(i, "L") = S
Next i
End Sub
mfg
Vielleicht reicht diese Formel:
Code:
=N(MATCH(H1;$Q$5:$Q$19; 1)=MATCH(J1;$R$5:$R$19;1))*INT(MATCH(H1;$Q$5:$Q$19;1)/2)+1
Hallo,
als Reaktion auf die PN anbei die Datei.
M.E., aber ungetestet, dürfte der Code von snb besser sein. Mein Code müßte die fest-codierten Werte aus einer Tabelle ziehen, damit Änderungen, also weitere Sektoren, leichter berücksichtigt werden können.
Gegenfrage: Wikipedia zeigte zwar Info's zu Gauss-Krüger-Koordinate, die sind aber IMMER positiv. Was sind also deine Daten?
mfg
