Fehler in der Suchroutine

[Glausius]

Hallo Gemeinde,

da hab ich mir für ein Projekt eine Suchroutine gebastelt, die in einer Tabelle nacheinander den jeweiligen Suchbegriff in der entsprechenden Zelle markieren soll. Leider tut sie das nicht und ich finde den Fehler nicht! :@ :@ :@ 

Ein entsprechendes Musterschema mit dem original VBA-Code häge ich hier an.
Suche ich nach "Tür", so wird die erste Zeile des Suchbereiches ausgelassen, suche ich dann dagegen nach "Zimmer" wird mir ein Fundort übersprungen - ich bin völlig ratlos! Nach meiner Logik sollte es eigentlich richtig funktionieren, aber .....
Und wenn der Suchbegriff der letzten Zeile gesucht und gefunden wird, geht es in eine Endlosschleife - hhmmm???


Wer kann mir helfen?

[BoskoBiati]

Hallo Günter,

so gehts:


  Mustersuche.xlsm (Größe: 38,44 KB / Downloads: 4)

[Glausius]

Hallo Edgar,

das attachment=3726 sagt mir garnichts?  

Hast du vergessen, die Datei anzuhängen?

[BoskoBiati]

korrigiert

[Glausius]

Hallo Edgar,

vielen Dank, das funktioniert - muss ich recherieren, was da so anders als bei mir ist!
Allerdings beginnst du bereits in Zeile 7 zu suchen, obwohl doch der Suchbereich erst ab Zeile 8 losgeht - warum ist das so?

[BoskoBiati]

Hallo Edgar,

vielen Dank, das funktioniert - muss ich recherieren, was da so anders als bei mir ist!
Allerdings beginnst du bereits in Zeile 7 zu suchen, obwohl doch der Suchbereich erst ab Zeile 8 losgeht - warum ist das so?

[Steffl]

Hallo Günter,

ich hoffe, Du nimmst auch meine Antwort. Das liegt an dem Parameter After. Wenn der nicht angegeben ist, wie es hier der Fall ist, wird nach der linken oberen Zelle mit dem Suchen begonnen. Siehe auch Auszug aus der OH

Gibt die Zelle an, nach der mit der Suche begonnen werden soll. Dies entspricht der Position der aktiven Zelle, wenn eine Suche über die Benutzeroberfläche ausgeführt wird. Beachten Sie, dass After eine einzelne Zelle im Bereich darstellen muss. Beachten Sie zudem, dass die Suche hinter dieser Zelle beginnt; die angegebene Zelle wird also erst durchsucht, wenn der Suchlauf zur Ausgangszelle zurückkehrt. Wird das Argument nicht angegeben, stellt die obere linke Zelle des Bereichs den Ausgangspunkt für die Suche dar.

Edgar hat dadruch, das er eine Zeile weiter oben beginnt den Suchbereich vergrößert und er findet somit den ersten Treffer auch in der Zeile 8.

Nachtrag: Oder setze den Parameter auf die letzte, rechte Zelle des Suchbereichs, so wie ich es im Code geändert habe.

Code:

Sub Suchen_aufrufen()
    loLetzte = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
    gesucht = ""
    i = 0
    Range("D7").Select
    Suchen.Show
    If Flag = False Then
        ActiveSheet.CommandButton2.Caption = "Suche"
        Exit Sub
    End If
    With ActiveSheet.Range("D8:D" & loLetzte)
        Set Gefunden = .Find(gesucht, after:=Range("D" & loletze).Row, LookAt:=xlPart, LookIn:=xlValues)
        If Gefunden Is Nothing Then
        nichts_gefunden
        Exit Sub
        Else
        loZeile = Gefunden.Row
        Set rng = Range(Gefunden.Address)
        rng.Select
        End If
        
    End With
    ActiveSheet.CommandButton2.Caption = "weiter suchen"
    Art = True
End Sub

[BoskoBiati]

Hallo,

Direktantwort vom Handy funktioniert schon mal nicht. Ansonsten hat Stefan schon alles gesagt.

[schauan]

Hallöchen,
Test.
Das ist eine Direktamtwort vom Handy.

Hallo,

Direktantwort vom Handy funktioniert schon mal nicht. Ansonsten hat Stefan schon alles gesagt.

[BoskoBiati]

Hallo André,

liegt wohl an meinem Handy.