Berechnung eines Attrubutfeldes

Gespeichert von GISbert am
im Forum ArcGIS
Hallo,

als VBA-Unwissender suche ich an einer Lösung für dieses eigentlich einfache Problem:

Ich möchte in einer Attributtabelle in einem noch leeren Feld denjenigen Wert berechnen, der der Maximumwert der 4 davorliegenden Attributfelder ist. Es sind alles Zahlenfelder vom Typ Double. Es ist quasi eine Worst-/Best-Case-Betrachtung.

Leider konnte ich in der Hilfe keine konkreten Hinweise zum richtigen VBA-Code für diese relativ einfache Berechnung finden.

MfG

GISbert

Gespeichert von Maxilla am Mi., 08.08.2007 - 17:57

Permalink
Hier ist ein hübsches Skript von Miles Hitchen, das den Maximum- und Minimumwert von gelisteten Feldern ausgibt. Einfach im Array die Feldnamen anpassen, den Rechner öffnen, Advanced anklicken, den Code als Pre-Logic eingeben und ins untere Eingabefeld je nach Wunsch die Variable dMaxVal oder dMinVal eingeben:

Dim v As Variant
Dim dMaxVal As Variant
Dim dMinVal As Variant
Dim f As Long

' Put the appropriate filednames in the array
v = Array([FieldName1], [FieldName2], [FieldName3])

' Loop through the array and determine max and min values
dMaxVal = Null
dMinVal = Null
For f = 0 To UBound(v)
If IsNull(dMinVal) Then dMinVal = v(f)
If IsNull(dMaxVal) Then dMaxVal = v(f)
If Not IsNull(v(f)) Then
If v(f) > dMaxVal Then dMaxVal = v(f)
If v(f) < dMinVal Then dMinVal = v(f)
End If
Next f

' dMaxVal now contains maximum value from the specified fields
' dMinVal now contains minimum value from the specified fields
' NULL values are ignored