Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchabfrage mit Freiem Text ?

Forumthread: Suchabfrage mit Freiem Text ?

Suchabfrage mit Freiem Text ?
04.06.2006 18:52:03
andy
Hallo zusammen,
Hallo Sepp (Hast mir gut geholfen Danke)
Ich habe noch ein ähnliches Problem,
ich möchte im Bereich(B3:P2000) nach Namen od Geb od sonstigen Einträgen suchen. Das heist ich möchte das sich nach dem Makrostart eine Eingabemaske öffnet. Und nach diesem Inhalt in dem Bereich gesucht wird. Bei mehreren Einträgen sollte das makro über einen "weiter" Button zum nächsten Eintrag gehen. Es sei den man möchte abbrechen.
Geht so was ?
Gruß
Andy
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchabfrage mit Freiem Text ?
04.06.2006 18:58:13
Josef
Hallo Andy!
Meinst du so?
Sub suchen()
Dim rngFind As Range
Dim strFirst As String, strFind As String

strFind = InputBox("Bitte Suchbegriff eingeben!", "Suchen")

If strFind = "" Then Exit Sub

With Sheets("Daten")
Set rngFind = .Range("B3:P2000").Find(What:=strFind, after:=.Range("P2000"), _
  LookIn:=xlValues, LookAt:=xlPart)
If Not rngFind Is Nothing Then
  strFirst = rngFind.Address
  Do
    Application.Goto rngFind, False
    If MsgBox("weiter suchen?", vbYesNo) = vbNo Then Exit Sub
    Set rngFind = .Range("B3:P2000").FindNext(after:=rngFind)
  End If
End With

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Suchabfrage mit Freiem Text ?
04.06.2006 19:22:22
andy
bekomme einen Fehler angezeigt.
END IF ohne IF Block
?
AW: Suchabfrage mit Freiem Text ?
04.06.2006 19:24:58
Josef
Hallo Andy!
Da ist mir beim kopieren eine Zeile abhanden gekommen;-((
Sub suchen()
Dim rngFind As Range
Dim strFirst As String, strFind As String

strFind = InputBox("Bitte Suchbegriff eingeben!", "Suchen")

If strFind = "" Then Exit Sub

With Sheets("Daten")
  Set rngFind = .Range("B3:P2000").Find(What:=strFind, after:=.Range("P2000"), _
    LookIn:=xlValues, LookAt:=xlPart)
  If Not rngFind Is Nothing Then
    strFirst = rngFind.Address
    Do
      Application.Goto rngFind, False
      If MsgBox("weiter suchen?", vbYesNo) = vbNo Then Exit Sub
      Set rngFind = .Range("B3:P2000").FindNext(after:=rngFind)
    Loop While Not rngFind Is Nothing And strFirst <> rngFind.Address
  End If
End With

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Suchabfrage mit Freiem Text ?
04.06.2006 19:41:11
andy
Sepp..., Du bist mein Held.
Läuft Super.
Vielen Dank und noch n schönes WE
gehe mir jetzt nen Bier trinken.
Gruß
Andy
AW: Suchabfrage mit Freiem Text ?
04.06.2006 19:34:23
Albin
Hi,
nach der Zeile Set ... fehlt das Loop.
Gruß
Albin
Do
Application.Goto rngFind, False
If MsgBox("weiter suchen?", vbYesNo) = vbNo Then Exit Sub
Set rngFind = .Range("B3:P2000").FindNext(after:=rngFind)
Loop
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige