Anzeige
Archiv - Navigation
840to844
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
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suche

Suche
01.02.2007 11:08:12
Patrick
Hallo,
ich habe ein Problem mit dem durchsuchen einer Tabelle.
Bisher durchsuche ich eine Tabelle mit folgendem Makro:
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
SBegriff = InputBox("Bitte Suchbegriff eingeben:")
For Each Sh In Worksheets
Sh.Activate
Set GZelle = Sh.Cells.Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Activate
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then erfasste.Show
Exit Sub
Set GZelle = Cells.FindNext(after:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Sh
Wenn das Ergebnis gefunden wird und ich auf "Nein" drücke öffnet er mir eine Userform (erfasste)und gut. Allerdings die Sache mit dem weitersuchen (wenn ein Ergebnis gefunden wird aber nicht das richtige ist) und ich auf "Ja" drücke haut nicht hin.
Ich hoffe das habe ich soweit verständlich rübergebracht.
Gruß
Patrick

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche
01.02.2007 15:21:04
Jan
Hi,
wir Exit Sub raus.
mfg Jan
AW: Suche
01.02.2007 15:43:32
Patrick
Hallo Jan,
ist das falsch ? Wie müßte ich denn meinen Code verändern das es funktioniert ?
Gruß
Patrick
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige