Hallo,
ich möchte mittels VBA eine Funktion zur Umrechnung von qm in ha erstellen. Ich möchte eine Input Box aufrufen über die ein Flächenwert in m² eingegeben wird. Das hat funktioniert durch:
FlaecheQM = InputBox("Fläche in Quadratmeterm:", "Umrechnung qm zu ha")
Nun soll nachdem der OK-Button gedrückt wird eine Funktion aufgerufen werden, die Quadratmeter in Hektar umwandelt. Der Hektarwert soll per MessageBox in ArcMap angezeigt werden.
Wie bekomme ich das hin? Kann mir jemand helfen?
Gruß Sabine
ich möchte mittels VBA eine Funktion zur Umrechnung von qm in ha erstellen. Ich möchte eine Input Box aufrufen über die ein Flächenwert in m² eingegeben wird. Das hat funktioniert durch:
FlaecheQM = InputBox("Fläche in Quadratmeterm:", "Umrechnung qm zu ha")
Nun soll nachdem der OK-Button gedrückt wird eine Funktion aufgerufen werden, die Quadratmeter in Hektar umwandelt. Der Hektarwert soll per MessageBox in ArcMap angezeigt werden.
Wie bekomme ich das hin? Kann mir jemand helfen?
Gruß Sabine
- Anmelden oder Registieren, um Kommentare verfassen zu können
Gespeichert von Gast am Do., 24.11.2005 - 20:19
PermalinkDim FlaecheQM as variant
FlaecheQM = Inputbox... s.o.
if isnumeric (FlaecheQM) then
msgbox FlaecheQM & " m2 entsprechen " & FlaecheQM/10000 & " Hektar.", vbinformation
elseif not isnull(FlaecheQM)
msgbox "Der eingegebene Wert ist keine Zahl, vbexclamation, "Dösbaddel"
end if
Viele Grüße
Jörg Ostendorp
Gespeichert von Gast am Fr., 25.11.2005 - 16:15
Permalinkvielen Dank, das werde ich gleich ausprobieren!
Gruß
Sabine