Argument ist nicht optional OpenOffice

Computer: Software & Programmierung Visual Basic
#1

Guten Tag geehrte Community,

ich bin gerade in der Einführung des Programmierkurzes mit OpenOffice Basic. Also ein Anfänger, aber kriege schon Probleme.
Ich habe eine ganz einfache Function programmiert, aber kriege ständig die Meldung „Argument ist nicht optional“.

Die Funktion sieht so aus:

Function MyAdd (a1 as Double, a2 as Double) As Double
MyAdd = a1 + a2

#2

Hallo,

ich habe das gerade mal bei mir getestet …

Option Explicit

Private Sub Command1\_Click()
 Me.Caption = MyAdd(2, 3)
End Sub

Private Function MyAdd(ByVal a1 As Double, ByVal a2 As Double) As Double
 MyAdd = a1 + a2
End Function

Das liefert mir keinen Fehler, nur eine 5.

Versuch mal:

Private Function MyAdd(ByVal a1 As Double, ByVal a2 As Double) As Double
 Dim e as Double
 e = a1 + a2
 MyAdd = e
End Function

Wenn das so funktioniert, liegt der Fehler eher bei OO als bei Dir. VB6/VBA versteht, was Du möchtest.

Gruß Rainer

#3

Ich habe eine ganz einfache Function programmiert, aber kriege
ständig die Meldung „Argument ist nicht optional“.
Function MyAdd (a1 as Double, a2 as Double) As Double
MyAdd = a1 + a2

#4

VB6/VBA versteht, was Du möchtest.

Hallo Rainer,

OO auch :smile:)

sub Test
msgbox myadd(3,5)
end sub

Function MyAdd (a1 as Double, a2 as Double) As Double
MyAdd = a1 + a2
End Function

Gruß
Reinhard

#5

Hallo Reinhard,

OO auch :smile:)

OK. So etwas kann ich nicht testen, ich habe OO nicht installiert.
In der Firma habe ich MSOffice, privat brauch’ ich’s nicht.

Gruß Rainer