Die Suche in OneDrive nach Dateien liefert seit mehreren Wochen 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

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

Hallo Claus,

so geht das natürlich auch ;-)

Besten Dank

Gruss

Ralf

Hallo Ralf,

das geht noch einfacher. Ändere xlWhole auf xlPart:

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

Claus