Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
644to648
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
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suchtext im Screen immer zeigen

Suchtext im Screen immer zeigen
30.07.2005 15:01:10
maine-coon
Wie kann ich bei diesem Suchcode erreichen, dass der screen mitwandert, also immer den gefunden Zellbereich auch zeigt?
Gruß Achim

Sub suchen()
Dim Zelle As Range
Dim Begriff As Variant
Dim firstaddress As String
Dim z As Long
Range("A2").Select
Begriff = InputBox("Suchbegriff, oder Teil davon eingeben")
If Begriff = "" Then Exit Sub
With Worksheets("Kundenliste").Range("A1:G201")
Set Zelle = Cells.Find(Begriff, LookAt:=xlPart, LookIn:=xlValues)
If Not Zelle Is Nothing Then
firstaddress = Zelle.Address
Do
Zelle.Interior.ColorIndex = 3
Rem Application.Wait Now + TimeValue("00:00:02") ' nach 2 sec. wird die zelle wieder weiß
Rem c.Interior.ColorIndex = 0
z = z + 1
Meldung = MsgBox("Gefunden in Zelle " & Chr$(13) & "" & Zelle.Address(False, False) & "" & Chr$(13) & "Weitersuchen ?", 32 + 4, "SUCHEN nach Vorgabe des Bereichs")
If Meldung = vbNo Then
Exit Sub
End If
Zelle.Interior.ColorIndex = 0
Set Zelle = .FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address <> firstaddress
End If
End With
If z = 0 Then
Meldung = MsgBox(Begriff & Chr$(13) & "wurde nicht gefunden!", 64, "SUCHEN nach Vorgabe des Bereichs")
Else
Meldung = MsgBox(Begriff & Chr$(13) & "Das waren alle", 64, "SUCHEN nach Vorgabe des Bereichs")
End If
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Suchtext im Screen immer zeigen
30.07.2005 15:18:38
GraFri
Hallo
Nach
Do
Zelle.Select
einfügen.
Bei weiteren Fragen einfach melden.
mfg, GraFri
AW: Suchtext im Screen immer zeigen
30.07.2005 20:10:09
maine-coon
Danke dir für den Hinweis.
Schönen Abend noch.
Gruß Achim
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige