Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige