Mehrfachwerte

[Gerhard]

Hallo zusammen, folgendes Problem !
Ein Feld enthält Mehrfachwerte und ich möchte diese auslesen und in einer Variablen speichern um diese Variable an anderer Stelle wieder auszugeben.
Folgender Ansatz:
   zaehler=0
   bewertungsteam=""
   Do While Not (doc.bewertungsteam(zaehler) Is nothing)
                bewertungsteam = bewertungsteam+doc.bewertungsteam(zaehler)
   zaehler=zaehler+1
   Loop

Funktioniert aber nicht, was mach ich falsch ?

Danke für die evtl. Hilfe !

[koehlerbv]

"Funktioniert aber nicht ..." ist eine sehr wenig hilfreiche Aussage.

Nothing kannst Du nur bei Objekten, nicht aber skalaren Variablen verwenden.

For zaehler = 0 to Ubound (doc.bewertungsteam)
    bewertungsteam = bewertungsteam & doc.bewertungsteam (zaehler))
Next

Bernhard

[DerAndre]

Ich würde mal sagen da kommt dann ein langer String raus, weil ja nur die Positionen aneinanderkekettet werden.

Wäre das nicht richtiger... ?


Dim bewertungsteam as Variant

bewertungsteam = doc.bewertungsteam

[koehlerbv]

Gerhard will den neuen Wert "an anderer Stelle ausgeben". Dann wird er wohl eher einen String brauchen. Das sagt aber nur meine Glaskugel ...

Und dann geht das ganze natürlich noch einfacher:
bewertungsdeam = Join (doc.bewertungsteam, ", ")

Der oben gepostete Code diente nur dazu, Gerhards Fehler aufzuzeigen mitsamt einem gültigen Konstrukt.

Bernhard

[Gerhard]

danke bernhard !
das genügt schon um mein problem zu lösen. wie krieg ich jetzt noch die namen rein angezeigt, also ohne ou's und so ?

[koehlerbv]

Dann brauchst Du doch wieder die Schleife aus der ersten Antwort, ergänzt in folgender Form:

Dim nameBewerter As NotesName

For zaehler = 0 to Ubound (doc.bewertungsteam)
    Set nameBewerter = New NotesName (doc.bewertungsteam (zaehler))
    bewertungsteam = bewertungsteam & ", " & nameBewerter.Common
Next

HTH,
Bernhard

[DerAndre]

Ihr mit euren Glaskugeln 

Ich schaff mir auch irgendwann mal eine an...

[Gerhard]

Danke Bernhard!

Das war alles was ich brauchte ...... es ist so leicht wenn man es weiss :-) !

[koehlerbv]

Na, nun weisst Du es ja 

Andre: Mit den Glaskugeln ist das so eine Sache ... Manchmal benutze ich sie auch nicht, und das ist dann besser so 

Bernhard