Na, dann brauchst Du ja via NotesView.GetAllDocumentsByKey (<DeineKategorisierung>) nur prüfen, ob das ausgewählte Dokument Nummer 1 in der oben erstellten Collection ist.
@Bernhard:
Das hab ich nun mal versucht. Es sind wirklich meine allerersten Gehversuche und ich hab auch nur im Netz und in der Hilfe was zusammengesucht.
Ich bin soweit gekommen, daß er mir die Dokumente raussucht, die in einer Kategorie drin sind. Mit GetFirstDocument komm ich auch auf das erste Dokument der Collection. Wie kann ich denn aber nun vergleichen, ob dieses erste Dokument das in der Ansicht gewählte ist, um eine Messagebox ausgeben zu können, die dem Nutzer erklärt, daß er bitte das erste nehmen soll?
Was ich bisher zusammen hab:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim dc As NotesDocumentCollection
Dim strNummer As String
Set db = session.CurrentDatabase
Set uidoc = Source.Document
Set view = db.GetView("Kunden\nach Nummer2")
strNummer = uidoc.KdNr(0)
Set dc = view.GetAllDocumentsByKey(strNummer, True)
Set doc = dc.GetFirstDocument
Christian