Guten Tag,
habe ein kleines Problem mit einer VBA Function, welche ich programmieren soll. Hierbei handelt es sich um eine Function die das Volumen aus Breite, Höhe und Tiefe berechnen soll. Bin noch ziemlicher Neuling, wäre nett wenn mir wer helfen kann.
Hier mein Quelltext:
Option Explicit
Dim intHöhe As Integer
Dim intBreite As Integer
Dim intTiefe As Integer
intHöhe = InputBox("Bitte geben Sie eine Höhe ein")
intBreite = InputBox("Bitte geben Sie eine Breite ein")
intTiefe = InputBox("Bitte geben Sie eine Tiefe ein")
Function Volumen(intHöhe As Integer, intBreite As Integer, intTiefe As Integer) As Integer
Volumen = intHöhe * intBreite * intTiefe
End Function
Cells(4, 3) = intHöhe
Cells(5, 3) = intBreite
Cells(6, 3) = intTiefe
Cells(7, 3) = Volumen
Ich hoffe ihr könnt mir weiterhelfen und mir sagen was ich falsch gemacht habe.
Vielen Dank
Gruß
Benjamin
|