Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
828to832
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
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Noch mal suchen, finden und markieren.
18.12.2006 19:57:52
Dunrell
Hallo.
Frage an die Excel-Experten: Mit unten angezeigtem Makro (Danke Heiko!) wird bewirkt, daß ein Wert in einer Tabelle gefunden und dann zur besseren Auffindbarkeit farbig markiert wird. Allerdings schlage ich mich jetzt noch mit folgender Sache herum...
Da die Tabelle recht lang ist, soll die farbig markierte Zelle, in der der Wert gefunden wurde, dann angezeigt, sprich aktiviert werden. Ich habe es mit dem Vergleich der Variablen versucht (siehe das etwas veränderte Makro von Heiko - die Zeile, welche für sich alleine steht):
Range("B4:L219").Select
Selection.Interior.ColorIndex = xlNone
Range("A1").Select
Dim Zelle As Range
Dim SuchenNeu As String, SuchenAlt As String
Dim Farbe As Long
SuchenNeu = InputBox("Suchbegriff", " Suchbegriff", "")
If SuchenNeu = "" Then Exit Sub
Range("B1").Value = SuchenNeu
With ActiveSheet.UsedRange
Set Zelle = .Find(SuchenNeu, LookIn:=xlValues)
If Not Zelle Is Nothing Then
SuchenAlt = Zelle.Address
Do
Farbe = Zelle.Interior.ColorIndex
Zelle.Interior.ColorIndex = 3
If Range("B1").Value = SuchenNeu Then Zelle = ActiveCell
If MsgBox(" Weitersuchen?", vbYesNo + vbQuestion) = vbNo Then
Exit Sub
End If
Zelle.Interior.ColorIndex = Farbe
Set Zelle = .FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address SuchenAlt
End If
End With
Ledier wird dann nur die farbig unterlegte Zelle, bzw. der Wert in ihr gelöscht. Eine andere Methode habe ich bis jetzt noch nicht gefunden. Weder Show noch sonstiges zeigt das gewünschte Resultat.
Für eine kleine Anregung wäre ich dankbar.
Ô_Ô
P.S.:
Leider kann man hier den Level nicht mit "drei", also befriedigend auswählen. Das würde eher passen. Alles weiß wohl keiner, oder?

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

Betreff
Datum
Anwender
Anzeige
Ein Range-Objekt...
18.12.2006 20:02:49
{Boris}
Hi,
...- in diesem Falls "Zelle" - aktiviert man mit der gleichnamigen Activate-Methode:
If Range("B1").Value = SuchenNeu Then Zelle.Activate
Grüße Boris
AW: Ein Range-Objekt...
18.12.2006 20:07:33
Dunrell
Das Leben kann so einfach sein...
Ich danke Dir Boris.
;-)
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige