Aber warum machst Du es denn auch mit view.entry? Musst Du das unbedingt so machen?
Damit
Dim ws As New NotesUIWorkspace
Dim View As NotesView
Dim uiview As NotesUIView
Set uiview = ws.CurrentView
Dim ndoc As NotesDocument
Set View = db.GetView(uiview.ViewName)'("People")
Set doc = view.GetFirstDocument
If doc Is Nothing Then
Msgbox "Keine Bestellungen"
Exit Sub
End If
xlsheet.Cells(gvZeile, 1).Value = doc.bestellnummer(0) ' "Vorname"
xlsheet.Cells(gvZeile, 2).Value = doc.firma(0) '"Nachname"
xlsheet.Cells(gvZeile, 3).Value = doc.projektname(0) '"2. Vorname"
xlsheet.Cells(gvZeile, 4).Value = doc.projektnr(0) '"Name"
xlsheet.Cells(gvZeile, 5).Value = doc.projektleiter(0) '"Rufname"
xlsheet.Cells(gvZeile, 6).Value = doc.ansprechpartner(0) '"E-Mail-Adresse"
xlsheet.Cells(gvZeile, 7).Value = doc.kst(0) '"Straße (privat)"
usw
Matthias
tmp1 = ws.Prompt (PROMPT_OKCANCELEDIT, _
"Bitte Koordinator eingeben", _
"Bitte nur Nachnamen eingeben")
.
.
Set viewentry = vc.GetFirstEntry()
Do While Not (viewentry Is Nothing)
Do While (viewentry.ColumnValues(0) = tmp1) Hier kommt der Type mismatch
For iCols=1 To 17
Könnte man doch wie folgt umgehen
do while not (viewentry is nothing)
v=join(evaluate({@if(@ismember("} & tmp1 & {";@explode("} & join(viewentry.columnvalues,";") & {";";"));"1";"0")}),"")
if (v="1") then
.....
Man könnte auch die View so umbauen, dass in der 1. Spalte keine Mehrfachwerte vorhanden sind......