Code
Sub Initialize
Dim Session As New NotesSession
Dim Db As NotesDatabase
Dim View As NotesView
Dim Document As notesdocument
Dim Collection As NotesDocumentCollection
Dim Item As NotesItem
Dim NameArray() As Variant
Redim NameArray(1,1)
Set Db = Session.CurrentDatabase
'Fülle Hilfsarray
DocCounter% = 1
Set View = Db.GetView("vw_AdressListAlleKNR")
Set Document = View.GetFirstDocument
Do While Not(Document Is Nothing)
If Document.PKFiliale(0) = "-1" Then
DocCounter% = DocCounter% + 1
'Messagebox(Cstr(Ubound(NameArray,1)+1))
Redim Preserve NameArray(2,1)
'NameArray(1,0) = Trim$(Document.CustomerNumber(0))
'NameArray(1,1) = Trim$(Document.Customer(0))
End If
Set Document = View.GetNextDocument(Document)
Loop
Stop
End Sub
Alles anzeigen
:-? steh ich auf m schlauch?
wie kann man ein array denn bitte dynamisch vergrößern?
da wo jetzt "Redim Preserve NameArray(2,1)" steht soll später statt der 2 der Counter rein