vielleicht kann mir hier jnd helfen, bin etwas ratlos. Ich habe folgende Tabelle:
3530 7401401 a T 6°3625.6945"E 46°0301.0049"N 1125.94
3530 7401401 b T 6°3625.7630"E 46°0301.0533"N 1125.64
3530 7401401 c T 6°3625.8054"E 46°0300.9099"N 1124.54
3530 7401402 a T 6°3721.4613"E 46°0148.1575"N 1108.5
3530 7401402 b T 6°3721.7920"E 46°0147.8673"N 1109.6
3530 7401402 c T 6°3721.7911"E 46°0147.8498"N 1109.6
3530 7401403 a T 6°3831.9368"E 46°0403.4712"N 1496.07
3530 7401404 a T 6°3949.2134"E 46°0025.0495"N 2004.06
3530 7401405 a T 6°4004.6195"E 46°0226.4720"N 1760.74
3530 7401405 b T 6°4003.7112"E 46°0226.3830"N 1767.34
3530 7401406 a T 6°4150.1870"E 46°0152.2297"N 2169.58
3530 7401406 b T 6°4148.6426"E 46°0151.6040"N 2169.08
3530 7401406 c T 6°4149.6879"E 46°0152.0326"N 2182.28
3530 7401407 a T 6°4400.4881"E 45°5959.7023"N 2527.13
Die Höhenwerte (Spalte ganz rechts) gleicher Aufnahmestellen (2.Spalte) sollen jeweils miteinander verglichen werden. Ist die Differenz zwischen den höchsten und dem niedrigsten Punkt an der gleichen Aufnahmestelle größer einem vorgegebenen Wert, so soll in der Reihe mit dem jeweils größten Höhenwert in eine hinten angefügte Zelle "Building" geschrieben werden.
Meine Versuche sind bis jetzt nicht besonders erfolgreich verlaufen. Im Moment kann ich nur überprüfen, ob es sich jeweils um die gleiche Aufnahmestelle handelt. Das habe ich so gelöst:
Do
If Cells(reihenzahl + 1, 2) - Cells(reihenzahl, 2) = 0 Then
Cells(reihenzahl, 9) = "gleich"
End If
reihenzahl = reihenzahl + 1
If Cells(reihenzahl, 2) - Cells(reihenzahl - 1, 2) = 0 Then
Cells(reihenzahl, 9) = "gleich"
End If
Loop Until reihenzahl = lastrow
Mein Problem ist, wie ich jeweils die Max und Minwerte bestimme, ohne den Zeilenbezug zu verlieren. Vielleicht geht das ganze ja ganz einfach, bin ein ziemlicher Neuling in VB. Sobald ich mit mehrdimensionalen Feldern rumprobiere, funktioniert irgendwie gar ncihts mehr.
Ich bin für jeden Tipp sehr dankbar.