Hi,
ich habe volgendes Code-Beispiel gefunden, kann es mir jemand erklären?

Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim flag As Variant
   Dim sForm As String
   Dim autoHorzFit As Variant
   Dim autoVertFit As Variant
   Dim noCancel As Variant
   Dim noNewFields As Variant
   Dim noFieldUpdate As Variant
   Dim readOnly As Variant
   Dim title As String
   Dim doc As NotesDocument
   Dim sizeToTable As Variant
   Dim noOKCancel As Variant
   
   Dim value As Variant
   Dim docThis As NotesDocument
   Dim i As Integer
   Dim vResult As Variant
   Dim sCol1() As String
   Dim sCol2() As String
   
   sForm = "(AuswahlKundenIntern)"
   autoHorzFit = True
   autoVertFit = True
   noCancel = False
   noNewFields = True
   readOnly = False
   title = "Auswahl der internen Kunden"
   Set doc = Nothing
   sizeToTable = True
   noOKCancel = False
   flag = ws.DialogBox( sForm , autoHorzFit , autoVertFit  , noCancel  , noNewFields , noFieldUpdate , readOnly , title ,  , sizeToTable , noOkCancel  )

Bis hier ist alles in ordnung. Dann fangen meine Probleme an...
   If flag = True Then
      Set docThis = ws.CurrentDocument.Document
      value = docThis.Liste_Intern
      If value(0) <> "" Then
         Redim sCol1( Lbound(value) To Ubound(value))
         Redim sCol2( Lbound(value) To Ubound(value))
         For i = Lbound(value) To Ubound(value)
            vResult = Evaluate( |@Explode("| + value(i) + |" ; "#")| )
            sCol1(i) = vResult(0)
            sCol2(i) = vResult(1)
         Next
         docThis.Kunde_Intern_Nummer = sCol2
         docThis.Kunde_Intern_Name = sCol1
      End If      
   End If
End Sub

Hab ich ja schon...

und genau mit diesen Funktionen hab ich des Problem. Der rest is dann wieder kein Problem mehr...

Also....

 If flag = True Then
      Set docThis = ws.CurrentDocument.Document Das ist dann die Maske die ich im Dialog aufrufe
      value = docThis.Liste_InternDas sind die Markierten Werte in einem Array ODER?
      If value(0) <> "" Then
         Redim sCol1( Lbound(value) To Ubound(value))Redim hab ich verstanden aber wie funktioniert Lbound und Ubound Zählt das die ArrayElemente in value? Dann müsste Lbound doch immer 0 zurückgeben
         Redim sCol2( Lbound(value) To Ubound(value))
         For i = Lbound(value) To Ubound(value)
            vResult = Evaluate( |@Explode("| + value(i) + |" ; "#")| )Explode hab ich verstanden....
            sCol1(i) = vResult(0)
            sCol2(i) = vResult(1)
         Next
         docThis.Kunde_Intern_Nummer = sCol2
         docThis.Kunde_Intern_Name = sCol1
      End If      
   End If

Vielen Dank, ich habs kapiert....