Outlook: Suche liefert nach Update keine Ergebnisse mehr

Hallo Dieter,



vielen Dank für deine Anfrage.



Ich habe deine Anfrage im Office 2016 für Mac verschoben. Wir von Office 365 für Business Support unterstützen Angelegenheiten mit den Office 365 für Business Online Dienste und keine Probleme mit externen POP, oder IMAP Konten.



Freue mich auf deine Rückmeldung.



Mit freundlichen Grüßen,

Alexander Petrov

Microsoft Office 365 Support Engineer

Danke fürs verschieben,

es handelt sich dabei aber eigentlich nicht um ein Problem mit einem externen Konto sondern um Outlook selbst. Die Suche in den Emails hat vor dem Update einwandfrei funktioniert. Gibt es noch eine andere Möglichkeit die Datenbank zu indexieren ausser mit
dem empfohlenen Programm "OutlookSearchRepair"?

Viele Dank

Danke.

Hier der Link zum soeben eröffneten THread im TechNet:

https://social.technet.microsoft.com/Forums/de-DE/81f6d437-989f-4dfd-91be-f62942f96272/outlook-suche-liefert-keine-ergebnisse?forum=office_generalde

Hallo Axel,



Hier in Microsoft 365 Community sind wir mehr für Cloud Technologien spezialisiert wie Exchange Online und SharePoint Online. Wir haben keine Berichte über Probleme mit Outlook Suche mit Exchange Online momentan. Du kannst dich an
Technet Forum wenden, damit dir dort die Spezialisten mehr helfen können.





Mit freundlichen Grüßen,

Galin Karlov

Microsoft Office 365 Support Engineer

Hallo Ralf,

wenn ich das richtig sehe, sind deine Rechnungsnummern nur in Spalte E. Warum sonst entfärbst du nur diesen Bereich?

Probiere es mal so:

Sub Suche()

Dim c As Range

Dim Ant As Integer, i As Integer

Dim varFund() As Variant

Dim SuReNr As String, FirstAddress As String, strOut As String
SuReNr = InputBox("Rechnungsnummer eingeben", "Rechnungsnummer")

If SuReNr = "" Then Exit Sub
With ActiveSheet.Range("E2:E500")

    .Interior.ColorIndex = xlNone

    Set c = .Find(SuReNr, LookIn:=xlValues, lookat:=xlWhole)

    If Not c Is Nothing Then

        FirstAddress = c.Address

        Do

            c.Interior.Color = vbYellow

            ReDim Preserve varFund(i)

            varFund(i) = c.Address(0, 0)

            i = i + 1

            Set c = .FindNext(c)

        Loop While Not c Is Nothing And c.Address <> FirstAddress

    End If

End With
If i > 0 Then

    strOut = Join(varFund, Chr(10))

    MsgBox "Suchnummer wurde gefunden und Zellen wurden eingefärbt in" _

        & Chr(10) & strOut

Else

    MsgBox "Suchnummer ist nicht vorhanden"

End If

    

Ant = MsgBox("Noch eine Rechnungsnummer suchen?", vbYesNo + vbQuestion)

If Ant = vbYes Then Suche

End Sub

Claus