Anzeige
Archiv - Navigation
620to624
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
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
ECHTES PROBLEM: Text in Spalte suchen!
09.06.2005 20:52:20
AS
Wie kann ich in einer Spalte nach einem Text suchen, und dann das erste Ergebnis markieren lassen?
Und zwar bitte mit einem Visual Basic Code!!!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ECHTES PROBLEM: Text in Spalte suchen!
09.06.2005 21:09:54
Ralf
Hallo AS,
Wie?
So:
Option Explicit

Sub suchen_1()
Dim SWERT As String
Dim ze As Integer
Dim z As Integer
Dim firstAddress As String
Dim c
SWERT = Application.InputBox("Suchbegriff eingeben!", "Suche")
ze = Cells(65536, 1).End(xlUp).Row
For z = 1 To ze
Cells(z, 1).Interior.ColorIndex = xlColorIndexNone
Next
With Sheets(1).Range("A1:A" & ze)
Set c = .Find(SWERT, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.ColorIndex = 6
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

Gruß
Ralf
Anzeige
AW: ECHTES PROBLEM: Text in Spalte suchen!
09.06.2005 21:23:18
Rudi
Columns(1).Find("DeinText").select
mfg Rudi
AW: ECHTES PROBLEM: Text in Spalte suchen!
10.06.2005 15:28:09
AS
Danke, lieber Rudi!
Hat mir sehr geholfen!!!

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige