Suche liefert kein Ergebniss oder unkomplettes Ergebniss

Diskutiere und helfe bei Suche liefert kein Ergebniss oder unkomplettes Ergebniss im Bereich Microsoft Office im Windows Info bei einer Lösung; Hallo, bei meinem Suchmakro bekomme ich kein Suchergebniss bzw. nicht nachvollziehbar ein nur Teilergebniss. Woran könnte das liegen: Hier das... Dieses Thema im Forum "Microsoft Office" wurde erstellt von RalfGlaesser, 6. März 2017.

  1. Suche liefert kein Ergebniss oder unkomplettes Ergebniss


    Hallo,

    bei meinem Suchmakro bekomme ich kein Suchergebniss bzw. nicht nachvollziehbar ein nur Teilergebniss.

    Woran könnte das liegen:


    Hier das Makro


    Sub Suchen()
    'Start der Suchfunktion
    Suchen:
    Dim Anz As Long, a As Long, SuchIN As Range
    Dim SuReNr As String, Zelle As Range
    ActiveSheet.Range("E2:E500").Interior.ColorIndex = xlNone
    SuReNr = InputBox("Rechnungsnummer eingeben", "Rechnungsnummer")
    If SuReNr = "" Then
    Exit Sub
    End If
    'Suche in allen Zellen
    b = 0
    Set SuchIN = ActiveSheet.Cells
    'Zähle Zellen mit der Rechnungsnummer
    Anz = Application.WorksheetFunction.CountIf(SuchIN, "*" & SuReNr & "*")
    With SuchIN
    For a = 1 To Anz
    If a = 1 Then
    'Suche erste
    Set Zelle = .Find(what:="*" & SuReNr & "*", _
    After:=Cells(5, 1), _
    LookIn:=xlValues)
    SuReNr = Zelle.Address & Chr(13)
    Zelle.Interior.ColorIndex = 6
    Else
    'Suche nächste
    Set Zelle = .FindNext(Zelle)
    Zelle.Interior.ColorIndex = 6
    SuReNr = SuReNr & Zelle.Address & Chr(13)
    End If
    b = 1
    Next a
    End With
    Set Zelle = Nothing
    Set SuchIN = Nothing
    'Ergebniss anzeigen
    If b = 1 Then
    MsgBox "Die Nummer wurde in: " & (Chr(13)) & SuReNr & (Chr(13)) & _
    "gefunden und markiert!"
    Else
    MsgBox "Rechnungsnummer " & SuReNr & " nicht gefunden!"
    End If
    'Nächste Rechnungsnummer suchen
    SuReNrNeu:
    If MsgBox(prompt:="Noch eine Rechnungsnummer suchen?", Buttons:=vbYesNo + vbQuestion) = vbYes Then
    GoTo Suchen
    End If
    End Sub
     
  2. Claus Busch Win User

    Suche liefert kein Ergebniss oder unkomplettes Ergebniss

    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
  3. RalfGlaesser Win User

    Suche liefert kein Ergebniss oder unkomplettes Ergebniss

    Hallo Claus,

    so geht das natürlich auch ;-)

    Besten Dank

    Gruss

    Ralf
  4. Claus Busch Win User

    Suche liefert kein Ergebniss oder unkomplettes Ergebniss

    Hallo Ralf,

    das geht noch einfacher. Ändere xlWhole auf xlPart:

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

    Claus
  5. RalfGlaesser Win User

    Suche liefert kein Ergebniss oder unkomplettes Ergebniss

    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
  6. AxelHeubeck Win User

    Outlook Suche liefert keine Ergebnisse

    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
  7. User Advert


    Hi,

    willkommen im Windows Forum!
Thema:

Suche liefert kein Ergebniss oder unkomplettes Ergebniss - Microsoft Office

Die Seite wird geladen...

Suche liefert kein Ergebniss oder unkomplettes Ergebniss - Similar Threads - Suche liefert Ergebniss

Forum Datum

Onedrive Suche findet keine Ergebnisse

Onedrive Suche findet keine Ergebnisse: Hi,bei mir ist die Suche sowohl über Browser als auch mit der Android App erfolglos. Das ist echt nervig. Die Synchronisation mit dem PC hingegen funktioniert und da werden auch die Dateien...
Microsoft Office 19. August 2022

Suche über Start Menü - Ergebnisse nicht mehr im Fokus

Suche über Start Menü - Ergebnisse nicht mehr im Fokus: Hallo,ich sehe seit dem Upgrade auf Windows 11 ein seltsames Verhalten bei der Suche über das Startmenü.Als ich früher nach einer Datei suchte, und dann den Ort anklickte, wurde der Explorer...
Games und Spiele 15. Juni 2022

Outlook Suche liefert keine Ergebnisse

Outlook Suche liefert keine Ergebnisse: Hallo liebe Community, ich brauche Eure Hilfe. Bei einem Rechner funktioniert die Suche im Outlook nicht. Es wird folgende Meldung angezeigt, wenn man Etwas in die Suchleiste eintippt und die...
Microsoft Office 9. Juli 2020

Outlook 365-Suche bringt keine Ergebnisse mehr

Outlook 365-Suche bringt keine Ergebnisse mehr: Hallo zusammen, ich habe hier ein Rechner, der auf einen Terminal Server zugreift und in dieser Sitzung eben auch Office 365 nutzt. Seit gestern ist es der Fall, dass die Suche keine Ergebnisse...
Microsoft Office 30. April 2019

Outlook: Suche liefert nach Update keine Ergebnisse mehr

Outlook: Suche liefert nach Update keine Ergebnisse mehr: Hallo, leider hab ich keinen aktuellen Beitrag dazu gefunden bzw. keine der Tipps aus anderen Beitragen hat geklappt. Seit dem letzten Update von Outlook vor einigen Tagen (jetzt habe ich...
Microsoft Office 10. Januar 2019

Suche im öffentlichen Ordner liefert nicht alle betroffenen Ergebnisse

Suche im öffentlichen Ordner liefert nicht alle betroffenen Ergebnisse: Liebe Community, ich habe das Problem, dass wenn ich in einem öffentlichen Ordner nach etwas Suche, mir nicht alle von der Suche betroffenen Ergebnisse angezeigt werden. Ich suche...
Microsoft Office 15. Oktober 2018

Suche nach Kontakten in Outlook 2016 geht nicht (kein Ergebniss)

Suche nach Kontakten in Outlook 2016 geht nicht (kein Ergebniss): Hallo Nach neuinstalation von Outlook 2016 geht die Suche in den Kontakten nicht mehr. Suche in emails läuft 100%
Microsoft Office 9. Oktober 2018
Suche liefert kein Ergebniss oder unkomplettes Ergebniss solved
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.