Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
184to188
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
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen Weitersuchen

Suchen Weitersuchen
30.11.2002 15:24:19
Ralf
Hallo
Ich habe folgendes Problem und bräuchte Eure Hilfe.
Ich habe eine Suchmaske mit der ich ein Tabellenblatt durchsuche jetzt möchte ich, wenn ich was gesucht habe und der Rechner etwas gefunden hat das ich danach mit dem gleichem Suchbegriff weitersuchen kann.
Also wenn das gefundene nicht das richtige ist das ich dann weitersuchen kann.

Hoffentlich versteht Ihr mich

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

Betreff
Datum
Anwender
Anzeige
was vergessen
30.11.2002 15:25:55
Ralf
Sorry Hier das bestehende Makro

Sub Auswahl()
Dim gZelle As Range, sBegriff$
sBegriff = InputBox("Bitte Suchbegriff eingeben:", _
"Suchen")
If sBegriff = "" Then Exit Sub
Set gZelle = ActiveSheet.Columns("A:F").Find(sBegriff)
If gZelle Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!", , _
Application.UserName
Exit Sub
End If
gZelle.Select
' MsgBox gZelle.Address(False, False)
' gZelle.Offset(1).Select
' While ActiveCell.Address <> gZelle.Address
' Cells.FindNext(After:=ActiveCell).Activate
' If ActiveCell.Address = gZelle.Address Then Exit Sub
' MsgBox ActiveCell.Address(False, False)
' Wend
End Sub

Anzeige
Re: was vergessen
30.11.2002 15:57:15
Herre
Hallo Ralf

Hab folgendes Makro gefunden

Sub Finde()
Dim wks As Worksheet
Dim rng As Range
Dim strAddress As String; strFind As String
strFind = ActiveCell 'InputBox("Bitte Suchbegriff eingeben:")
For Each wks In Worksheets
Set rng = wks.Cells.Find(strFind; lookat:=xlWhole; LookIn:=xlFormulas) ' bei lookat:=xlPart möglich
If Not rng Is Nothing Then
strAddress = rng.Address
Do
Application.Goto rng; True
If MsgBox("Weiter"; vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = strAddress Then Exit Do
Loop
End If
Next wks
End Sub


Probier mal mit rum

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige