Re: [de-users] [solved] LO Makro Basic Option ''Optional'' - ''IsMissing'' immer ''False''

Hallo Robert,

danke für den Hinweis :-)) ...

Wer lesen kann ist klar im Vorteil - Function MeineFunktion(Text1 As 
String, Optional Arg2, Optional Arg3) - in dem Hilfe-Beispiel ist es ja 
so gemacht wie von Dir beschrieben, ich habe es nur nicht "gesehen" ;-)) 
...

Ist aber schon etwas gewöhnungsbedürftig, weil man die 
"Optional"-Variablen in der Funktion (s.o.) nirgendwo bezüglich Typ 
deklarieren muss, aber es funktioniert - hier ein kleiner Test mit 
Integer-Variablen:

Sub Calling
   Dim A,B,C as Integer
   A= 1 : B = 1 : C = 1
   Called(A,,C)
End Sub

Sub Called(Optional A,Optional B,Optional C)
   Dim S as Integer
   MsgBox("A: " & IsMissing(A) & Chr(13) &_
          "B: " & IsMissing(B) & Chr(13) &_
          "C: " & IsMissing(C) & Chr(13))
   S=0
   If (Not IsMissing(A)) Then : S=S+A : End If
   If (Not IsMissing(B)) Then : S=S+B : End If
   If (Not IsMissing(C)) Then : S=S+C : End If
   MsgBox("S=" & S)
End Sub

MsgBox-Anzeigen:

A: False
B: True
C: False

S=2

Grüße
Hans-Werner


------ Originalnachricht ------
Von: "Robert Großkopf" <robert@familiegrosskopf.de>
An: users@de.libreoffice.org
Gesendet: 06.12.2017 20:46:17
Betreff: Re: [de-users] LO Makro Basic Option ''Optional'' - 
''IsMissing'' immer ''False''

> Hallo Hans_Werner,
> > [0] Test-Makros
> >
> > Sub Calling
> >    Dim A,B,C as String
> >    A= "A" : B = "B" : C = "C"
> >    Called(A,B,C)
> > End Sub
> >
> > Sub Called(Optional A as String,Optional B as String,Optional C as 
> > String)
> >    MsgBox("A: " & IsMissing(A) & Chr(13) &_
> >           "B: " & IsMissing(B) & Chr(13) &_
> >           "C: " & IsMissing(C) & Chr(13))
> > End Sub
>
> Der Fehler liegt darin, dass Du den optionalen Variablen "as String"
> zuweist. Auch ein leerer Inhalt wird wohl als String interpretiert und
> so weitergegeben.
>
> Sub Called(Optional A, Optional B, Optional C)
>
> bringt Dir das gewünschte Ergebnis.
>
> Gruß
>
> Robert
> --
> Homepage: http://robert.familiegrosskopf.de
> LibreOffice Community: http://robert.familiegrosskopf.de/map_3
>
>
> --
> Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
> Probleme? 
> https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
> Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
> Listenarchiv: https://listarchives.libreoffice.org/de/users/
> Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert
--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert