OneDrive Web- und App-Suche liefert keine Ergebnisse Kontoindex defekt?

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

Hallo Claus,

funktioniert fast. Trotzdem erstmal Danke.

Das Problem jetzt noch besteht darin, das in der Spalte "E" nicht nur allein die Rechnungsnummer steht, sondern dort noch andere Bestandteile von Buchungskennungen existieren. Die Rechnungsnummer ist nur ein Teil des Zellinhaltes.

Deshalb hatte ich auch das:

"*" & SuReNr & "*"

drin.

Gruss

Ralf

Habe so geändert....:

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

Sollte so gehen, oder?

Gruss

Ralf

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