Suche im öffentlichen Ordner liefert nicht alle betroffenen Ergebnisse

Hallo Augustine,

danke für deine Antwort!

Ja der Filter ist auf aktueller Ordner eingestellt, dass ist aber auch so gewollt, denn ich möchte ja nur in diesen Ordner suchen. Die Elemente die die Suche nicht hervorbringt, befinden sich ja in diesem Ordner und das Suchkriterium das ich verwende müsste
diese Elemente hervorbringen, aber es fehlt mir wie oben genannt ein ganzer Datumsbereich in dem aber mit Sicherheit Elemente vorhanden sind, welche durch das Suchkriterium hervorgebracht werden müssen.

Verwendete Office Versionen bzw. Betriebssysteme sind nicht von Relevanz, denn es ist jeder Client betroffen, der den öffentlichen Ordner verbunden hat. Egal ob es auf Windows 7 oder Windows 10 ist und ganz egal ob es die OWA Oberfläche im Browser (egal
welcher Browser: IE, Edge, Firefox, Chrome) oder ein Outlook Client (Office 2013 bzw. 2016) ist, es betrifft jede Art von Client. Über Mac kann ich nichts sagen, denn Mac wird in diesem Fall nirgends verwendet.

LG Manuel

Hallo Manuel,

danke für die Nachricht.

Kann es sein, dass der Filter auf der rechten Seite des Suchfelds auf "aktuelles Postfach/aktueller Ordner" eingestellt ist? Wenn dies der Fall ist, sollten Sie es in "alle Postfächer/Ordner/Unterordner" ändern.

Es wäre auch sehr hilfreich, wenn Sie uns die Edition (Home / Professional / etc) und die Version von Office und das Betriebsystem (Windows/Mac) mitteilen können.

Wir freuen uns auf Ihre Rückmeldung.

LG

AEG

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