Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
560to564
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
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
markierde fundstelle rückgängig machen
06.02.2005 23:01:48
mehmet
guten tag forum,
ich hatte von euch mal ein sehr hilfreiches makro bekommen.
mittels button werden die ganzen arbeitsblätter durchsucht.
die fundstelle wird mit gelb markiert.
kann man das makro so erweitern, dass die zelle ihre ursprungliche
formatierung nach dem verlassen beibehält?
hier der makro:
Option Explicit
Public strSuch As String

Sub Suchen_alle_Tab()
Dim wks As Worksheet
Dim rng As Range
Dim strAddress As String, strFind As String
strFind = InputBox("Bitte Suchbegriff eingeben:", Application.UserName, strSuch)
If strFind = "" Then Exit Sub
For Each wks In Worksheets
Set rng = wks.Cells.Find(strFind, lookat:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
strAddress = rng.Address
Do
wks.Range(rng.Address).Interior.ColorIndex = 6
Application.Goto rng, False
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then
Range(rng.Address).Interior.ColorIndex = xlNone
Exit Sub
End If
Range(rng.Address).Interior.ColorIndex = xlNone
Set rng = Cells.FindNext(After:=ActiveCell)
If rng.Address = strAddress Then Exit Do
Loop
End If
Next wks
strSuch = strFind
MsgBox "Keine weiteren Fundstellen!", False, Application.UserName
Worksheets(1).Activate
Range("A1").Select
End Sub

herzlichen dank im voraus

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

Betreff
Datum
Anwender
Anzeige
AW: markierde fundstelle rückgängig machen
Ulf
Option Explicit

Sub Suchen_alle_Tab()
Dim wks As Worksheet
Dim rng As Range
Dim strAddress As String, strFind As String
Dim oldColor As Integer
strFind = InputBox("Bitte Suchbegriff eingeben...")
If strFind = "" Then Exit Sub
For Each wks In Worksheets
Set rng = wks.Cells.Find(strFind, lookat:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
strAddress = rng.Address
Do
oldColor = wks.Range(rng.Address).Interior.ColorIndex
wks.Range(rng.Address).Interior.ColorIndex = 6
Application.Goto rng, False
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then
Range(rng.Address).Interior.ColorIndex = oldColor
Exit Sub
End If
Range(rng.Address).Interior.ColorIndex = oldColor
Set rng = Cells.FindNext(After:=ActiveCell)
If rng.Address = strAddress Then Exit Do
Loop
End If
Next wks
MsgBox "Keine weiteren Fundstellen!          "
Worksheets(1).Activate
Range("A1").Select
End Sub

Ulf
Anzeige
AW: markierde fundstelle rückgängig machen
06.02.2005 23:21:04
mehmet
super ulf,
herzlichen dank
es funktioniert
gruss

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige