Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1208to1212
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
Inhaltsverzeichnis

Suche Modifizieren (exclusive)

Suche Modifizieren (exclusive)
juergen
Guten Morgen zusammen,
Brauche mal wieder Eure Hilfe, u. stehendes Makro soll so abgeändert werden, dass es nicht in Tabellenblatt (Name:"Tabelle1") sucht.
Frage: Ist dass Möglich? Und wenn ja, kann mir bitte jemand mitteilen, wie!
Für Eure Hilfe danke ich beits jetzt.
Gruß
Jürgen
Sub Finden()
Dim rng As Range
Dim vNumber As Variant
Dim iCounter As Integer
Dim sFirst As String
Dim bln As Boolean
vNumber = InputBox( _
prompt:="Suche in allen Tabellenblättern! Bitte Begriff eingeben:", _
Default:="Was soll gesucht werden?")
If vNumber = "" Then Exit Sub
For iCounter = 1 To Worksheets.Count
Set rng = Worksheets(iCounter).Cells.Find(vNumber)
If rng Is Nothing = False Then
sFirst = rng.Address
Do
Set rng = Worksheets(iCounter).Cells.FindNext(rng)
MsgBox "Gefunden in Blatt " & rng.Parent.Name _
& " - Zelle " & rng.Address(False, False)
Weiter = MsgBox("Weitersuchen?", vbYesNo, "Suche!")
If Weiter = vbNo Then Exit Sub
Loop While Not rng Is Nothing And rng.Address  sFirst
bln = True
End If
Next iCounter
If bln = False Then
Beep
MsgBox prompt:="Begriff nicht gefunden!"
End
End If
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
(exclusive) Tabelle1 ...
15.04.2011 08:20:19
Matthias
Hallo
For iCounter = 1 To Worksheets.Count
If Worksheets(iCounter).Name  "Tabelle1" Then ...
Gruß Matthias
noch ein Hinweis >Weiter< ist nicht deklariert oT
15.04.2011 08:52:21
Matthias
AW: noch ein Hinweis >Weiter< ist nicht deklariert oT
15.04.2011 13:36:56
juergen
Hallo Matthias,
kann deine Hilfe nicht umsetzen, kannst du mir bitte auf die Sprünge helfen?
Danke,
Gruß
Juergen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige