Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Suchen und Finden

Betrifft: Suchen und Finden
von: Oliver
Geschrieben am: 12.04.2003 - 12:10:02

Hallo Leute,

habe mal wieder ein Problem. Ich möchte in Tabelle1 in der Spalte C ab C3 bis C655336 nach einem Begriff suchen. Falls der Begriff gefunden wurde soll die Zelle markiert werden.

Habe da auch schon einen Ansatz, der bezieht sich aber auf die ganze Tabelle.

Wäre schön, wenn mir jemand dabei helfen könnte.

Sub suchen()
Dim wks As Worksheet
Dim rngFind As Range, rngRows As Range
Dim sFind As String, sSearch As String
sSearch = InputBox("Suchbegriff:", , "test")

Set rngFind = Cells.Find(what:=sSearch, lookat:=xlPart)

If rngRows Is Nothing Then
Set rngRows = rngFind
End If
If Not rngFind Is Nothing Then
sFind = rngFind.Address
Do
Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
Set rngFind = Cells.FindNext(After:=rngFind)
If rngFind.Address = sFind Then Exit Do
Loop
End If
rngRows.Select
End Sub


Danke

Gruß

Oliver

  

Re: Suchen und Finden
von: th.heinrich
Geschrieben am: 12.04.2003 - 12:50:59

hallo Oliver,

hier wird die zeile markiert.


Sub suchen_und_finden()
Dim wks As Worksheet
Dim rngFind As Range, rngRows As Range
Dim sFind As String, sSearch As String
sSearch = InputBox("Suchbegriff:")

Set rngFind = Cells.Find(what:=sSearch, lookat:=xlPart)


If rngRows Is Nothing Then
Set rngRows = rngFind
End If
If Not rngFind Is Nothing Then
sFind = rngFind.Address
Do
Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
Set rngFind = Cells.FindNext(After:=rngFind)
If rngFind.Address = sFind Then Exit Do
Loop
End If
rngRows.Select
End Sub

von Knut

gruss thomas

  

Re: Suchen und Finden
von: Oliver
Geschrieben am: 12.04.2003 - 13:23:21

Hallo Thomas,

das ist das gleiche VBA, was ich habe.
Ich möchte aber das nur in Spalte C gesucht wir und auch nur die gefundene Zelle und nicht die ganze Zeile markiert wird.

Danke

Gruß

Oliver

  

Re: Suchen und Finden
von: th.heinrich
Geschrieben am: 12.04.2003 - 14:20:56

hallo Oliver,

mein wissen ist damit leider ueberfordert.

poste die frage neu inkl. code.

gruss thomas

 

Beiträge aus den Excel-Beispielen zum Thema "Suchen und Finden"